データフレームのリストをデータフレームのリストにする方法

Question

リストリストデータフレームフォーマットに入れる必要があるデータフレーム（または値）のリストがありますリスト - データフレーム形式下記の簡単な例をご覧ください。

library(plyr) 

my_function= function(df){ 
    means = mean(df$mpg) 
    sds = sd(df$mpg) 
    # or 
    #  means = mtcars * rnorm(1) 
    #  sds = cars * rnorm(1) 
    output = list(MEAN = means, SD = sds) 
    return(output) 
} 

list_of_dfs=plyr::dlply(.data = mtcars, .variables ='cyl') 
output = lapply(list_of_dfs, my_function) 

今私はそれを集約したいので、CYL = 4/6月8日のためのすべてのSD値は、1つのデータフレームと第二のデータフレーム内MEAN値です。

私はdo.call(rbind, output)を試しましたが、わかりません。

はい、ここでグループ化することができます。これは単なる例です。リストの各値は、計算された出力ではなく実際のデータフレームと考えることができます。

Answer 1

これは、あなたが望むようなものかもしれません。いくつかのレベルの入れ子があるので、ややこしいことです。

まず、outputの各要素から要素nを抽出する機能：

tmpf <- function(n) sapply(output,function(x) x[[n]]) 
tmpf("MEAN") 
##  4  6  8 
## 26.66364 19.74286 15.10000 

今の要素のリストにその機能を適用します。

v <- names(output[[1]]) ## "MEAN" "SD" 
r <- setNames(lapply(v,tmpf),v) 
## $MEAN 
##  4  6  8 
## 26.66364 19.74286 15.10000 
## 
## $SD 
##  4  6  8 
## 4.509828 1.453567 2.560048 

あなたが本当にできたデータフレームをしたい場合lapply(r,as.data.frame)

2番目の複雑なケースを処理するには、tmpfをfo llows：

tmpf2 <- function(n) do.call(rbind,lapply(output,function(x) x[[n]])) 

または

tmpf2 <- function(n) dplyr::bind_rows(lapply(output,function(x) x[[n]])) 

は（おそらく purrrパッケージでこれを行うには、純粋な-tidyverse方法はあり。）

第2のステップは同じまま：

r <- setNames(lapply(v,tmpf2),v)