R中关于by的一个问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

大家好，有谁知道这个问题怎么解决吗。
> dstats <- function(x)(c(mean=mean(x), sd=sd(x)))
> by(mtcars[vars],mtcars$am, dstats)
Error in is.data.frame(x) :
  (list) object cannot be coerced to type 'double'
In addition: Warning message:
In mean.default(x) : argument is not numeric or logical: returning NA
我看R语言实战上面也这么写的。能运行出结果，我的不知道什么问题……有会的，帮忙解答下，谢谢喽！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：addition argument warning numeric turning addition message double cannot Error

好高深啊！！！！！！

同求

我也遇到这个问题，怎么办，楼主解决了吗？

在网上搜到的答案，我觉得应该是正确的，分享一下啊。

“那个应该是书上错了。
mean()函数只支持向量，不支持数据框输入。所以自定义函数dstats也不支持数据框输入。
解决办法是将dstats改成如下，就可以了：
dstats <- function(x) c(mean=sapply(x,mean), sd=sapply(x,mean))”

摘自：http://www.zhihu.com/question/28289052/answer/40217718

sunchaosailor 发表于 2015-3-11 13:13
在网上搜到的答案，我觉得应该是正确的，分享一下啊。

“那个应该是书上错了。

dstats <- function(x) c(mean=sapply(x,mean), sd=sapply(x,sd))是sd=sapply(x,sd)，不是mean。
解决了我的问题，很赞！

sunchaosailor 发表于 2015-3-11 13:13
在网上搜到的答案，我觉得应该是正确的，分享一下啊。

“那个应该是书上错了。

但是将by函数替换成aggregate函数，其它照样，会运行成功，这是怎么回事呢？

我也碰到了这种情况，不知道为什么这样，按照上面说的改了代码，有结果了！

sunchaosailor 发表于 2015-3-11 13:13
在网上搜到的答案，我觉得应该是正确的，分享一下啊。

“那个应该是书上错了。

根据楼主的回答解决了问题，棒

蓝白红201211 发表于 2016-2-3 20:10
但是将by函数替换成aggregate函数，其它照样，会运行成功，这是怎么回事呢？

改成aggregate不可以啊，书上说了aggregate只能用单返回值函数