r - 将组总和除以总和

Question

我正在使用 dplyr 包。假设我有下表。

<表类="s-表"><头>组计数<正文>一个20一个10B30B35C50C60

我的目标是创建一个汇总表，其中包含每个组的平均值，以及每个组的平均值与加在一起的总平均值的百分比。所以决赛 table 将是这样的:

<表类="s-表"><头>组<日>平均 prcnt_of_total<正文>一个15.14B32.5.31C55.53

例如0.14就是下面计算的结果:15/(15+32.5+55)

现在，我只能生成计算每组平均值的第一列代码:

summary_df<- df %>% 
             group_by(Group)%>% 
             summarise(avg=mean(count))

我仍然不知道如何生成 prcnt_of_total 列。有什么建议吗？

Answer 1

您可以使用以下代码:

df <- read.table(text="Group    count
A   20
A   10
B   30
B   35
C   50
C   60", header = TRUE)

library(dplyr)
df %>%
  group_by(Group) %>%
  summarise(avg = mean(count)) %>%
  ungroup() %>%
  mutate(prcnt_of_total = prop.table(avg))
#> # A tibble: 3 × 3
#>   Group   avg prcnt_of_total
#>   <chr> <dbl>          <dbl>
#> 1 A      15            0.146
#> 2 B      32.5          0.317
#> 3 C      55            0.537

^{由 reprex package 创建于 2022-07-14 (v2.0.1)}