自动计算多个数据帧的平均值和标准偏差，并排除每个数据帧中的第一列

Question

我基本上是 R 的新手，但需要为我的论文制作一些情节。

我正在处理已导出包含扫描组的 csv 的高光谱数据。我已经读取了数百个读数，即使对光谱进行分组，这也会产生许多单独的 csv 文件。

在每个 csv 中，x 轴位于第一列，每列包含独立光谱的强度。列数根据该组中进行的扫描次数而有所不同。

我正在尝试在每个数据框中创建与平均值和标准差相对应的新列。

我还想创建另一个数据框，将新的均值和标准差列拉出并将它们放入新的数据框。

Answer 1

如果没有可重现的示例，就不可能测试下面的代码，但我会按照它的思路做一些事情。

old_dir <- setwd("path/to/dir")
filenames <- list.files(pattern = "\\.csv")
df_list <- lapply(filenames, read.csv)

df_list <- lapply(df_list, function(DF){
  DF[["Mean"]] <- rowMeans(DF[-1], na.rm = TRUE)
  DF[["StdErr"]] <- apply(DF[-1], 1, sd, na.rm = TRUE)
  DF
})

new_list <- lapply(df_list, function(DF){
  data.frame(Mean = DF[["Mean"]], StdErr = DF[["StdErr"]])
})

setwd(old_dir)

注意new_list 是"list" 类的对象。你要求一个新的data.frame 与手段和sd's。如果原始文件的列数和行数不同，这是不可能的。