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 在评论中提到的那样，我们可以在较新版本的 tidyr 中使用 pivot_wider 来替代 spread

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

数据

df <- data.frame(group, hight)