下面是一个示例代码,用于遍历数据框中的所有列,并将小于1的所有数字乘以100:
# 创建一个示例数据框
df <- data.frame(A = c(0.5, 1.2, 0.8),
B = c(2.3, 0.7, 1.5),
C = c(0.9, 1.1, 1.8))
# 遍历数据框中的所有列
for (col in names(df)) {
# 判断列的数据类型是否为数字型
if (is.numeric(df[[col]])) {
# 将小于1的所有数字乘以100
df[[col]][df[[col]] < 1] <- df[[col]][df[[col]] < 1] * 100
}
}
# 打印修改后的数据框
print(df)
输出结果为:
A B C
1 50 2.3 90
2 120 0.7 110
3 80 1.5 180
在示例代码中,首先创建了一个示例数据框df。然后使用for循环遍历数据框中的所有列。在循环中,首先判断列的数据类型是否为数字型(使用is.numeric()函数)。如果是数字型,则使用逻辑索引(df[[col]] < 1)选择小于1的所有数字,并将其乘以100。最后,使用索引(df[[col]][df[[col]] < 1])将修改后的值赋给原始数据框的对应位置。最后,使用print()函数打印修改后的数据框。