如何解决当我指定 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 个有效数字。
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")
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。