从多个.csv文件中抓取列作为R中方差分析的样本？

library(readr)

# 读取第一个.csv文件
data1 <- read_csv("file1.csv")

# 读取第二个.csv文件
data2 <- read_csv("file2.csv")

# 读取更多.csv文件...

library(dplyr)

# 提取第一个.csv文件中的列作为样本
sample1 <- select(data1, column_name1, column_name2)

# 提取第二个.csv文件中的列作为样本
sample2 <- select(data2, column_name1, column_name2)

# 提取更多.csv文件中的列作为样本...

# 合并样本
all_samples <- bind_rows(sample1, sample2)

# 如果有更多样本，继续合并...

# 执行方差分析
result <- aov(response_variable ~ factor_variable, data = all_samples)

# 如果是多因素方差分析，使用anova()函数
result <- anova(model, type = "III")