R语言对excel表格对每一列求平均值，最大值，最小值和中位数

在R语言中，我们可以使用`readxl`包读取Excel文件，然后利用内置函数对每一列进行求平均值、最大值、最小值以及中位数的操作。以下是一个简单的步骤说明：

首先，你需要安装并加载必要的包：

install.packages("readxl")
library(readxl)

然后，假设你的Excel文件名为`example.xlsx`，并且第一张工作表（Sheet1）包含了你要分析的数据，你可以使用`read_excel()`函数读取它：

data <- read_excel("example.xlsx", sheet = "Sheet1")

接下来，我们可以创建一个函数来计算每列的统计数据：

column_stats <- function(df, column_names) {
  stats_df <- lapply(column_names, function(col) {
    df[[col]] %>%
      summary() %>% # 使用summary()获取列的描述性统计
      as.data.frame() %>% # 转换为data.frame便于查看
      setNames(c(col, c("平均值", "最大值", "最小值", "中位数"))) # 重命名列
  })
  Reduce(rbind, stats_df) # 将所有列的统计数据合并到一个大的data.frame中
}

然后，将你想要计算的列名作为参数传入这个函数：

columns_to_analyze <- c("Column1", "Column2", ...) # 替换成你的实际列名
result <- column_stats(data, columns_to_analyze)

最后，你可以打印结果或将其保存到新的Excel文件中：

print(result)
# 或者
write.xlsx(result, "stats_from_example.xlsx", row.names = FALSE)