作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在寻找一种优雅的方法来迭代 data.table 的键,删除具有该键的行,然后对剩余的行进行汇总。例如:
mydt <- data.table(cat=c("a","a","b","b","c","c","c"), vals = 1:7)
setkey(mydt,cat)
tmp1 <- mydt[!"a"][,mean(vals)]
tmp2 <- mydt[!"b"][,mean(vals)]
tmp3 <- mydt[!"c"][,mean(vals)]
outdt <- data.table(cat=c("a","b","c"),means=c(tmp1,tmp2,tmp3))
最佳答案
我认为这样做可以,使用更传统的 data.table
代码:
setkey(mydt,cat)
mydt[, list(means=mean(mydt[!.BY,vals])), by=cat]
# or without needing to key first
mydt[, list(means=mean(mydt[cat != .BY,vals])), by=cat]
# cat means
#1: a 5.0
#2: b 4.2
#3: c 2.5
关于r - data.table 删除关键行并汇总,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/25129750/
我是一名优秀的程序员,十分优秀!