3

定義：

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

st

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

1 に答える 1

3

return関数の最後で使用しない場合、最後に評価された式が返されます。だからあなたは戻る必要がありますx。

dats <- lapply(dats, function(x) {
            names(x)<-tolower(names(x))
            x})
于 2011-06-29T16:51:50.393 に答える