如何使用for循环在多个列上使用ddply？

library(plyr)

# 创建一个示例数据框
df <- data.frame(
  group = c("A", "A", "B", "B", "C", "C"),
  col1 = c(1, 2, 3, 4, 5, 6),
  col2 = c(7, 8, 9, 10, 11, 12),
  col3 = c(13, 14, 15, 16, 17, 18)
)

# 定义一个自定义函数，用于在每个分组上应用
custom_function <- function(data) {
  # 在这里编写你的自定义逻辑
  # 这里只是简单地计算每个分组的平均值
  mean_value <- mean(data)
  return(mean_value)
}

# 定义要使用的列名
columns <- c("col1", "col2", "col3")

# 使用for循环在多个列上使用ddply
for (col in columns) {
  result <- ddply(df, .(group), summarise, mean_value = custom_function(get(col)))
  print(result)
}