reshape2中dcast使用统计函数报错

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R语言实战中，给出了一个用reshape做统计汇总的例子，觉得特别方便，但是用起来的时候报错，代码如下：

1. dstats <- function(x) (c(n = length(x), mean = mean(x), sd  = sd(x)))
   
2. dfm <- melt(mtcars, measure.vars = c("mpg", "hp", "wt"), id.vars = c("am", "cyl"))
   
3. dcast(dfm, am+ cyl + variable ~., dstats)

复制代码

运行后，R老报错:

Error in dim(ordered) <- ns :   dims [product 18] do not match the length of object [54]

请问该怎么改？dstats是没有问题的，如果随便给一个向量，例如x <- c(1,2,3,4,5), dstats(x)是没问题的。

谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：reshape Shape 统计函数 CAS APE function Error 统计

顶起来~~

1. cast(dfm, am+ cyl + variable ~., dstats)

复制代码

jiangbeilu 发表于 2016-3-28 10:08

Error: could not find function "cast"
reshape2包中已经没有cast函数了，换成了dcast和acast，而且dcast貌似不支持多个函数了？lz的那个换成单个函数就能执行
dcast(dfm, am+ cyl + variable ~., mean)

?dcast有段话：


     If the combination of variables you supply does not uniquely
     identify one row in the original data set, you will need to supply
     an aggregating function, 'fun.aggregate'. This function should
     take a vector of numbers and return a single summary statistic.


如果要一次返回3个值的话好像得用ddply：

1. ddply(dfm, ~am+cyl+variable, summarize,stat= dstats(value))

复制代码

jiangbeilu 发表于 2016-3-28 10:08

不过确实可以直接用reshape包的cast函数