有没有一个R函数可以代替使用几个数据帧的几列的循环？

# 创建一个包含多个数据帧的列表
df1 <- data.frame(A = c(1, 2, 3), B = c(4, 5, 6))
df2 <- data.frame(A = c(7, 8, 9), B = c(10, 11, 12))
df_list <- list(df1, df2)

# 定义一个自定义函数来操作数据帧的列
my_function <- function(column) {
  # 在此处定义你要进行的操作，例如对列进行求和
  sum(column)
}

# 使用apply()函数在每个数据帧的每一列上应用自定义函数
result <- lapply(df_list, function(df) {
  apply(df, 2, my_function)
})

# 打印结果
for (i in seq_along(result)) {
  cat(paste0("Data Frame ", i, ":\n"))
  print(result[[i]])
}