在这篇文章之后,您可以将所有文件读入一个列表(这里我假设它们的名称为weather * .csv):
csvs <- lapply(list.files(pattern="weather*.csv"), read.csv)
Run Code Online (Sandbox Code Playgroud)
剩下的就是取所有这些数据帧的平均值。您可以尝试以下方法:
Reduce("+", csvs) / length(csvs)
Run Code Online (Sandbox Code Playgroud)
如果您只想添加列的子集,则可以传递Reduce带有相应列子集的数据帧列表。例如,如果要从每个列中删除第一列,则可以执行以下操作:
Reduce("+", lapply(csvs, "[", -1)) / length(csvs)
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
653 次 |
| 最近记录: |