为什么我在 ggplot2 中的数据可视化在我指定 3 时显示 4 个有效数字？

Question

我正在尝试创建一个条形图，显示 4 个不同年龄段的社会科学专业人士的失业率。 在我的视觉中，我想在每个条形图上显示失业率，但我无法让条形图上的标签显示 3 个有效数字。

这是我的代码：

social_vs <- social_ur %>%
  ggplot(aes(
    x = age_group,
    y = unemployment_rate_avg,
    fill = age_group
  )) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = scales::percent(signif(unemployment_rate_avg, digits = 3)), vjust = 2.0))

social_vs1 <- social_vs +
  scale_y_continuous(name = "Unemployment Rate", labels = scales::percent, n.breaks = 4) +
  scale_x_discrete(name = "Age Group", labels = c(
    "25 to 34",
    "35 to 44",
    "45 to 54",
    "55 to 64")) +
  scale_fill_brewer(palette = "Set2") +
  theme_grey() +
  theme(legend.position = "none") +
  labs(title = "Social: unemployment rate by age group")

social_vs1

如您所见，我指定

signif(unemployment_rate_avg, digits = 3)

但我的视觉仍然显示 4 个有效数字。

我已经包含了通过运行上述代码创建的视觉效果的 png。

社会科学失业率

Answer 1

试试这个（未测试，因为没有共享数据）：

library(ggplot2)
#Code
social_vs <- social_ur %>%
  ggplot(aes(
    x = age_group,
    y = unemployment_rate_avg,
    fill = age_group
  )) +
  geom_bar(stat = "identity") +
  geom_text(aes(label = scales::percent_format(accuracy = 3))), vjust = 2.0))

social_vs1 <- social_vs +
  scale_y_continuous(name = "Unemployment Rate", labels = scales::percent, n.breaks = 4) +
  scale_x_discrete(name = "Age Group", labels = c(
    "25 to 34",
    "35 to 44",
    "45 to 54",
    "55 to 64")) +
  scale_fill_brewer(palette = "Set2") +
  theme_grey() +
  theme(legend.position = "none") +
  labs(title = "Social: unemployment rate by age group")