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

问题描述

我正在尝试创建一个条形图，显示 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。

Social Science Unemployment Rates

解决方法

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

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")