如何将值应用于 GGplot 中的 Y 轴

Question

我有以下从原始数据创建的数据框，以便在放入 ggplot 之前添加百分比

    AR      name    Percentage
1   16-19   252     0.4%
2   20-24   2850    4.4%
3   25-29   6476    10.0%
4   30-34   5882    9.1%
5   35-39   7128    11.0%
6   40-44   6347    9.8%
7   45-49   8178    12.6%
8   50-54   10862   16.8%
9   55-59   10417   16.1%
10  60+     6376    9.8%

我试图将 AR 放在 x 轴上，然后用条形图显示百分比，这应该是一件相对简单的事情，但我似乎无法让它发挥作用

Answer 1

您需要从可能是字符串（带有“%”符号）中提取数值：

library(tidyverse)

df <- read_table("
AR      name    Percentage
16-19   252     0.4%
20-24   2850    4.4%
25-29   6476    10.0%
30-34   5882    9.1%
35-39   7128    11.0%
40-44   6347    9.8%
45-49   8178    12.6%
50-54   10862   16.8%
55-59   10417   16.1%
60+     6376    9.8%"
)

df |> 
  mutate(p = as.double(str_extract(Percentage, ".*(?=%)"))) |> 
  ggplot(aes(AR, p)) +
  geom_col() +
  scale_y_continuous("Percentage", labels = scales::label_percent(scale = 1))