R data.frame 中计数的百分比

Question

我需要计算变量计数的百分比并将其放入向量中

我有一个框架如下：

group <- c('A','A','A','B','B','B')
hight <- c('tall','tall','short','tall','short','short')

group    hight
A        tall
A        tall
A        short
B        tall
B        short
B        short

如果运行表（df）我得到：

     hight
group short tall
A     1    2
B     2    1

计算百分比

t=table(df)
percentages <- data.frame(group=c('A','B'), percent = c(t[1]/(t[1]+t[2]),t[3]/(t[3]+t[4])))
percentages
percent.vector <- c(t[1]/(t[1]+t[2]),t[3]/(t[3]+t[4]))
percent.vector

我得到了我想要的：

    group   percent
1     A 0.3333333
2     B 0.6666667

[1] 0.3333333 0.6666667

...但我想有更好的方法来做到这一点。我无法对更大范围的组进行此计算。

如何简化百分比的计算？

谢谢

Answer 1

如果我们使用dplyr/tidyr，获得预期的方法是

library(dplyr)
library(tidyr)
df %>%
    count(group, hight) %>% 
    mutate(percent = n/sum(n)) %>% 
    select(-n) %>% 
    spread(hight, percent)
#     group     short      tall
#    <fctr>     <dbl>     <dbl>
#1      A 0.3333333 0.6666667
#2      B 0.6666667 0.3333333

或者正如 @JoeRoe 在评论中提到的，我们可以pivot_wider在新版本中使用tidyr来替代spread

 ...
 pivot_wider(names_from = hight, values_from = percent)

数据

df <- data.frame(group, hight)