下面是一个示例代码，用于遍历数据框中的所有列，并将小于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()函数打印修改后的数据框。