list - 使用列表中的数据框：重命名变量

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)))

英石

> 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

score 3 · Accepted Answer

如果您不在return函数末尾使用，则返回最后一个评估的表达式。所以你需要返回x。

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

1 回答 1