lappy和mutate_all/for循环

我在一个列表中有几个数据帧，我必须通过规范化所有列中的所有数据来修改这些数据帧（基本上，将每一行/列除以该列的数量之和）

在用lappy加载所有原始数据帧后，我希望迭代所有列以执行此类操作（即，mutate（df，df$my_column=df$my_column/sum（df$my_column）））

我的代码是：

samplelist <- list(df1 = "path to df1",
                 df2 = "path to df2",
                 df3 = "path to df3")


samples <- lapply(names(samplelist),function(processing){
  aux <- read.csv(samplelist[[processing]], header = T, sep = "") # works
  for (i in colnames(aux)){
    mutate(aux, aux[[i]]=aux[[i]]/sum(aux[[i]]))
  }
})

---

samplelist您只需使用所描述的函数并适应函数参数即可。在dplyr中，
代表变量。
~
定义了一个公式

samples <- lapply(names(samplelist), function(processing){
  aux <- read.csv(samplelist[[processing]], header = T, sep = "") %>% 
    mutate_all(~./sum(.))
})

samples您只需使用所描述的函数并适应函数参数即可。在dplyr中，
代表变量。
~
定义了一个公式

samples <- lapply(names(samplelist), function(processing){
  aux <- read.csv(samplelist[[processing]], header = T, sep = "") %>% 
    mutate_all(~./sum(.))
})

非常感谢！我完全错过了（可能是因为在意大利键盘上它不存在）非常感谢！我完全错过了（可能是因为在意大利键盘上它不存在）