0

ベクトル/列のリストを plyer:ddply インライン関数に渡すにはどうすればよいですか? このコードは機能します：

newdf <-ddply(olddf, .(V1, V2), function(df)
                    c( mean(df$V3), +
                       mean(df$V4), +
                       mean(df$V5), +
                       mean(df$V6), +
                       mean(df$V7), +
                       mean(df$V8), +
                       mean(df$V9), +
                       mean(df$V10), +
                       mean(df$V11), +
                       mean(df$V12), +
                       mean(df$V13), +
                       mean(df$V14), +
                       mean(df$V15), +
                       mean(df$V16), +
                       mean(df$V17), +
                       mean(df$V18), +
                       mean(df$V19), +
                       mean(df$V20) 
                     ) 
               )

しかし、私はこのようなことをしたいと思います(エラー、警告をスローします):

newdf <-ddply( olddf, .(V1, V2), function(df)  lapply(df[,3:20], mean) )

Error in list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor) : 
  Results must be all atomic, or all data frames
In addition: There were 50 or more warnings (use warnings() to see the first 50)

アドバイスをありがとう。

4

1 に答える 1

4

あなたがしたいsapplyのではなくlapply：

ddply(olddf, .(V1, V2), function(df) sapply(df[,3:20], mean) )

lapplylistエラーが示すように、アトミックではないを返しますがsapply、結果を単純化しようとします。この場合、最初の試行で返されるタイプの数値ベクトルになります。

しかし、あなたの例ではさらに良いですcolwise：

ddply(olddf, .(V1, V2), colwise(mean))
于 2014-05-31T17:59:08.083 に答える