我想组的以下数据表通过var1
和var2
,然后找到在百分比var2
:
data <- as.data.table(list(var1 = c("x1","x1","x2","x1","x2"),
var2 = c("y1","y1","y1","y2","y2")))
data[, .(count = .N), by=.(var1, var2)]
# var1 var2 count
#1: x1 y1 2
#2: x2 y1 1
#3: x1 y2 1
#4: x2 y2 1
这是我感兴趣的结果:
# var1 var2 count ratio in var2
#1: x1 y1 2 0.66
#2: x2 y1 1 0.33
#3: x1 y2 1 0.5
#4: x2 y2 1 0.5
如何更改代码以实现这一目标?
这应该给您您想要的:
data <- data[, .N, by = .(var1, var2)][, ratio:=N/sum(N), by = var2]
结果是:
> data
var1 var2 N ratio
1: x1 y1 2 0.6666667
2: x2 y1 1 0.3333333
3: x1 y2 1 0.5000000
4: x2 y2 1 0.5000000
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句