创建调用并在tibble列上循环时

library(tidyverse)
my_tibble <- tibble(col1 = c(1, 2, 3), col2 = c("A", "B", "C"))

# 使用for循环
for (col_name in colnames(my_tibble)) {
  # 在这里进行相应的操作，例如打印列名和列的内容
  print(paste("Column name:", col_name))
  print(paste("Column content:", my_tibble[[col_name]]))
}

# 使用apply函数
apply(my_tibble, 2, function(col) {
  # 在这里进行相应的操作，例如打印列的内容
  print(col)
})

# 使用for循环
for (col_name in colnames(my_tibble)) {
  # 求和操作
  sum_result <- sum(my_tibble[[col_name]])
  print(paste("Sum of", col_name, ":", sum_result))
}

# 使用apply函数
apply(my_tibble, 2, function(col) {
  # 求和操作
  sum_result <- sum(col)
  print(paste("Sum:", sum_result))
})