为字符串指定百分比

Question

我有获得诺贝尔奖的大学名单。有两个栏目，一个是大学，另一个是奖项类型(物理学，文学，.)。如果一所大学有一个以上的奖项，它就会出现很多次，然后是该奖项的类别。

uni_data <- nobel %>% 
  group_by(name_of_university) %>%
  summarise(category)

如何计算奖金的分配百分比？例如，如果鸭子大学已经赢得了4个奖项。3在文学和物理学中，我如何在一个单独的列中计算它的分布？在这种情况下，这将是75%的文学和25%的物理学。

我想和所有的大学都这样做。

我试过把清单按单位分组，但之后我没有发现有一个百分比的放气作用。

Answer 1

你可以用count得到数字，然后除以总数得到一个百分比：

library(dplyr)
nobel %>%
  count(name_of_university, category) %>%
  group_by(name_of_university) %>%
  mutate(proportion = n / sum(n)) %>%
  ungroup()