在列表中與dataframes工作：重命名變量

Question

定義：

dats <- list(df1 = data.frame(A=sample(1:3), B = sample(11:13)), 
     df2 = data.frame(AA=sample(1:3), BB = sample(11:13))) 

S.T.

> dats 
$df1 
    A B 
1 2 12 
2 3 11 
3 1 13 

$df2 
    AA BB 
1 1 13 
2 2 12 
3 3 11 

我想將所有大寫字母的所有變量名更改爲較低。我能做到這一點有一個循環，但不知何故不能得到這個lapply調用工作：

dats <- lapply(dats, function(x) 
      names(x)<-tolower(names(x))) 

導致：

> dats 
$df1 
[1] "a" "b" 

$df2 
[1] "aa" "bb" 

，而期望的結果是：

> dats 
$df1 
    a b 
1 2 12 
2 3 11 
3 1 13 

$df2 
    aa bb 
1 1 13 
2 2 12 
3 3 11 

Answer 1

如果您不要在函數結尾使用return，返回最後一個計算表達式。所以你需要返回x。

dats <- lapply(dats, function(x) { 
      names(x)<-tolower(names(x)) 
      x})