Question

使用R的tidyverse，如何获得行中每一列的 percentage 值？以mpg数据集为例，我尝试了以下代码：

new_mpg <- mpg %>%
  group_by(manufacturer, model) %>%
    summarise (n = n()) %>% 
      spread(model, n) %>% 
        mutate_if(is.integer, as.numeric)

new_mpg[,-1] %>% 
  mutate(sum = rowSums(.))

我正在寻找创建以下输出：

manufacturer | 4runner4wd |     a4    | a4 quattro | a6 quattro | altima |
--------------------------------------------------------------------------
audi         |     NA     | 0.3888889 |   0.444444 | 0.166667   |   NA   |

但是，当我到达

new_mpg[,-1] %>% 
      mutate(sum = rowSums(.))

sum列返回NA。而且我无法计算n（）/ sum。我会得到NA。有任何解决方法的想法吗？

Answer 1

正如评论中提到的@camille一样，您需要在na.rm = TRUE调用中使用rowSums。要获得制造商中每种型号的百分比，您需要首先计算按制造商和型号分组的每种型号的数量，然后获得仅按制造商分组的百分比。 dplyr如此聪明，因为它删除了summarise之后的一层分组，因此您只需要添加一个mutate：

library(dplyr)
library(tidyr)
library(ggplot2)
new_mpg <- mpg %>%
  group_by(manufacturer, model) %>%
  summarise (n = n()) %>% 
  mutate(n = n/sum(n)) %>% 
  spread(model, n) %>% 
  mutate_if(is.integer, as.numeric)

new_mpg[,-1] %>% 
  mutate(sum = rowSums(., na.rm = TRUE))

如何获取R中所有行中每一列的百分比值

1 个答案: