关于by函数的问题

3375

收藏 2017-09-17

代码：
vars <- c("mpg","hp","wt")
h2 <- function(x)(c(pingjun=mean(x),fangcha=sd(x)))
by(mtcars[vars],mtcars$am,h2)

感觉应该没什么错误，可是却出现

请问大神们代码哪里有问题

扫码加我拉你入群

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

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

全部回复

lanyajia

2017-9-17 19:22:43

by函数中调用的函数，只能是可以操作数据框的函数，比如summary。像mean、sd等只能操作向量的函数，使用在by中会出错。

扫码加我拉你入群

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

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

lanyajia

2017-9-17 19:29:50

R base 中提供的统计函数，分组计算功能相当的差，而用data.table很方便
h2 <- function(x)(c(pingjun=mean(x),fangcha=sd(x)))
library(data.table)
dt=data.table(mtcars)
dt[,lapply(.SD,h2),by=am]

扫码加我拉你入群

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

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

Thanos123

2017-9-17 19:44:14

lanyajia 发表于 2017-9-17 19:29
R base 中提供的统计函数，分组计算功能相当的差，而用data.table很方便
h2

哦哦好的，十分感谢

扫码加我拉你入群

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

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

栏目导航

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群