如何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")