下面是一个示例代码,用于按行计算数据框列表的平均值:
# 创建一个数据框列表
df_list <- list(data.frame(a = c(1, 2, 3), b = c(4, 5, 6)),
data.frame(a = c(7, 8, 9), b = c(10, 11, 12)))
# 定义一个函数,用于按行计算平均值
row_mean <- function(df) {
rowMeans(df)
}
# 使用lapply函数将函数应用于数据框列表的每个元素
result <- lapply(df_list, row_mean)
# 打印结果
print(result)
在这个示例中,我们首先创建了一个包含两个数据框的列表df_list
。然后,我们定义了一个名为row_mean
的函数,用于计算数据框的每一行的平均值。最后,我们使用lapply
函数将row_mean
函数应用于df_list
的每个元素,并将结果存储在result
中。最后,我们打印出结果。