如何colnames添加到所有的数据帧列表中的

Question

假设我有dataframes的列表，这样

data = list(data.frame(arb = rep(paste(sample(LETTERS, 5), collapse = ""), 5), value = round(rnorm(5, 270, 50), 1)), data.frame(arb = rep(paste(sample(LETTERS, 5), collapse = ""), 7), value = round(rnorm(7, 190, 70), 1)))

> data 
[[1]] 
    arb value 
1 LIPXQ 244.5 
2 LIPXQ 191.1 
3 LIPXQ 237.2 
4 LIPXQ 349.7 
5 LIPXQ 175.3 

[[2]] 
    arb value 
1 JVLWF 188.8 
2 JVLWF 194.8 
3 JVLWF 234.2 
4 JVLWF 196.5 
5 JVLWF 202.9 
6 JVLWF 211.2 
7 JVLWF 203.9 

如何更改列名于“治疗”和“剂量”与lapply？ 另外，我该如何改变与例如colname的= C列名的列表“套利”栏（“1纳米”，“为2nm”）的名称

Answer 1

我们可以使用setNames

data <- lapply(data, setNames, c("Treatment", "Doses")) 

对于第二种情况

data <- Map(function(x,y,z) setNames(x, c(y,z)), data, c("1nm", "2nm"), "Doses")