4

これは非常に単純なはずですが、私の努力はunlist失敗matrixしました。

次のリストを同じ構造を保持するExcelシートにエクスポートするにはどうすればよいですか？

list(structure(list(rob = c(0.500395231401348, 0.839314035292317, 
0.710466394967634, 0.61574235723249)), .Names = "rob", row.names = c(NA, 
4L), class = "data.frame"), structure(list(rob = c(0.66163340478379, 
0.591092739290417, 0.554484883310407, 0.78199375944331, 0.489388775242085
)), .Names = "rob", row.names = c(NA, 5L), class = "data.frame"), 
    structure(list(rob = c(0.697897964659196, 0.480394119894312, 
    0.514294379103359, 0.626971885076273, 0.77938643423231, 0.618135503224601
    )), .Names = "rob", row.names = c(NA, 6L), class = "data.frame"))

ありがとう！

4

1 に答える 1

8

次の方法で実行できます。

  1. 各ベクトルを でパディングしNAて、すべてのベクトルを同じ長さにします
  2. を使用do.call(rbind, ...)してデータ フレームを作成する

このような：

xx <- lapply(x, unlist)
max <- max(sapply(xx, length))
do.call(rbind, lapply(xx, function(z)c(z, rep(NA, max-length(z)))))

          rob1      rob2      rob3      rob4                    
[1,] 0.5003952 0.8393140 0.7104664 0.6157424        NA        NA
[2,] 0.6616334 0.5910927 0.5544849 0.7819938 0.4893888        NA
[3,] 0.6978980 0.4803941 0.5142944 0.6269719 0.7793864 0.6181355

write.table()次に、またはお気に入りのエクセルへのエクスポート方法を使用するのは簡単なことです。

于 2012-11-19T13:40:12.307 に答える