R使用percent_format将数字转换为 'tidyverse way"的百分比

Question

我有一列数字，我想将其从计数更改为百分比。

此代码有效:

    df <- df %>% 
  select(casualty_veh_ref, JourneyPurpose ) %>%
  group_by(JourneyPurpose) %>%
  summarise(Number=n()) %>%
mutate(Percentage=Number/sum(Number)*100)

df$Percentage <- paste(round(df$Percentage), "%", sep="")

但是，如果我尝试使用 scales 包中的 percent_format 保持管道:

df <- df %>% 
  select(casualty_veh_ref, JourneyPurpose ) %>%
  group_by(JourneyPurpose) %>%
  summarise(Number=n()) %>%
mutate(Percentage=Number/sum(Number))  %>% 
percent_format(Percentage, suffix = "%")

我收到错误消息

Error in force_all(accuracy, scale, prefix, suffix, big.mark, decimal.mark,  : 
  object 'Percentage' not found

我不明白为什么找不到对象

Answer 1

试试这个:我用虹膜来表示。

library(dplyr)
iris %>% 
  slice(1:4) %>% 
  mutate(Test=Sepal.Length/45,Test=scales::percent(Test)) 

结果:

Sepal.Length Sepal.Width Petal.Length Petal.Width Species   Test
1          5.1         3.5          1.4         0.2  setosa 11.33%
2          4.9         3.0          1.4         0.2  setosa 10.89%
3          4.7         3.2          1.3         0.2  setosa 10.44%
4          4.6         3.1          1.5         0.2  setosa 10.22%