如何为读取的多个数据集中的每个添加带有mutate（）的列？

Question

我是R的初学者，目前学习如何在多个数据集中进行数据整理工作。 现在，我使用以下代码读取了300行的55个csv.file数据集：

Rawdata <- list.files(pattern = "*.csv")
 for(i in 1:length(Rawdata)){
  assign(Rawdata[i],read.csv(Rawdata[i], header = TRUE)[1:300])
 }

每个数据集都有变量“ acc_X_value”，“ acc_Y_value”和“ acc_Z_value”。 我未能在这些数据集中添加带有mutate（）的列。我想在新列中显示这些变量的平均值。有任何想法吗？谢谢！

Answer 1

通常，最好将相关内容保留在列表中，而不要使用assign将其存储在全局环境中。我会这样做：

library(tidyverse)
Rawdata <- map(list.files(pattern = "*.csv"), read_csv)
newData <- map(rawData, mutate, average = (acc_X_value + acc_Y_value + acc_Z_value) / 3)