我有以下数据框
dat <- data.frame(x=c(1,2,3,3,2,1), y=c(3,4,4,5,2,5))
现在我想得到第三列,将 y 行值除以聚合的 y 值(基于 x 列中的唯一值)。所以,然后我得到第 1 行如下: 1,3,0.375; 0.375 已计算为 3/(5+3)。
我对 R 比较陌生,希望你能帮助我。谢谢!
最佳答案
解决这个问题的方法有很多种,这里有一个
with(dat, ave(y, x, FUN = function(x) x/sum(x)))
## [1] 0.3750000 0.6666667 0.4444444 0.5555556 0.3333333 0.6250000
这是另一种可能
library(data.table)
setDT(dat)[, z := y/sum(y), by = x]
dat
# x y z
# 1: 1 3 0.3750000
# 2: 2 4 0.6666667
# 3: 3 4 0.4444444
# 4: 3 5 0.5555556
# 5: 2 2 0.3333333
# 6: 1 5 0.6250000
这是第三个
library(dplyr)
dat %>%
group_by(x) %>%
mutate(z = y/sum(y))
# Source: local data frame [6 x 3]
# Groups: x
#
# x y z
# 1 1 3 0.3750000
# 2 2 4 0.6666667
# 3 3 4 0.4444444
# 4 3 5 0.5555556
# 5 2 2 0.3333333
# 6 1 5 0.6250000
关于r - 将行值除以 R data.frame 中的聚合总和,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30239229/