下面是一个示例代码，演示如何遍历一个包含多个数据框的列表，并对每个数据框中的相同列应用一个函数：

# 创建一个包含多个数据框的列表
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)

# 定义要应用于每个数据框的函数
sum_column <- function(df, column) {
  return(sum(df[[column]]))
}

# 遍历列表中的每个数据框，并对相同列应用函数
for (i in seq_along(df_list)) {
  df <- df_list[[i]]
  for (column in colnames(df)) {
    result <- sum_column(df, column)
    cat("数据框", i, "的列", column, "的总和为:", result, "\n")
  }
}

上述代码创建了一个包含两个数据框的列表df_list，然后定义了一个名为sum_column的函数，用于计算数据框中指定列的总和。接下来，使用两个嵌套的循环遍历列表中的每个数据框和每个列，并分别应用sum_column函数，最后输出每个数据框中每个列的总和。