在R中应用函数多个数据帧

# 创建两个数据帧
df1 <- data.frame(x = 1:5, y = 6:10)
df2 <- data.frame(x = 11:15, y = 16:20)

# 创建一个函数，计算每个数据帧的列均值
calculate_mean <- function(df) {
  mean(df$x)
}

# 使用for循环应用函数
for (df in list(df1, df2)) {
  result <- calculate_mean(df)
  print(result)
}

# 使用lapply函数应用函数
result <- lapply(list(df1, df2), calculate_mean)
print(result)

library(purrr)

# 创建两个数据帧
df1 <- data.frame(x = 1:5, y = 6:10)
df2 <- data.frame(x = 11:15, y = 16:20)

# 创建一个函数，计算每个数据帧的列均值
calculate_mean <- function(df) {
  mean(df$x)
}

# 使用map函数应用函数
result <- map(list(df1, df2), calculate_mean)
print(result)