在分组条形图上方添加计数和百分比

发布于 2025-01-10 21:14:52 字数 721 浏览 0 评论 0原文

如何在分组条形图中的每个条形上方添加计数和百分比（例如“11 (2%)”）？我只能使用下面的代码来获取百分比。谢谢！

library(dplyr)
library(scales)
library(ggplot2)
print(mtcars %>%
    count(cyl = factor(cyl), gear = factor(gear)) %>%
    mutate(pct = prop.table(n)) %>%
    ggplot(aes(x = cyl, y = pct, fill = gear, label = scales::percent(pct))) +
    geom_col(position = "dodge") +
    geom_text(position = position_dodge(width = .9), vjust = -0.5, size = 3) +
    scale_y_continuous(labels = scales::percent) +
    theme(axis.title.y = element_blank(),
          axis.text.y = element_blank()))

原文

How can I add both count and percentage, something like "11 (2%)", above each bar in a grouped barplot? I can only do it for percentage using the code below. Thanks!

library(dplyr)
library(scales)
library(ggplot2)
print(mtcars %>%
    count(cyl = factor(cyl), gear = factor(gear)) %>%
    mutate(pct = prop.table(n)) %>%
    ggplot(aes(x = cyl, y = pct, fill = gear, label = scales::percent(pct))) +
    geom_col(position = "dodge") +
    geom_text(position = position_dodge(width = .9), vjust = -0.5, size = 3) +
    scale_y_continuous(labels = scales::percent) +
    theme(axis.title.y = element_blank(),
          axis.text.y = element_blank()))

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

淡淡の花香 2025-01-17 21:14:52

您可以执行以下操作：

library(dplyr)
library(scales)
library(ggplot2)

mtcars %>%
    count(cyl = factor(cyl), gear = factor(gear)) %>%
    mutate(pct = prop.table(n)) %>%
    ggplot(aes(x = cyl, y = pct, fill = gear, 
               label = paste0(n, "\n(", scales::percent(pct), ")"))) +
    geom_col(position = "dodge") +
    geom_text(position = position_dodge(width = .9), vjust = -0.5, size = 3) +
    scale_y_continuous(labels = scales::percent, limits = c(0, 0.5)) +
    theme(axis.title.y = element_blank(),
          axis.text.y = element_blank())

You can do:

library(dplyr)
library(scales)
library(ggplot2)

mtcars %>%
    count(cyl = factor(cyl), gear = factor(gear)) %>%
    mutate(pct = prop.table(n)) %>%
    ggplot(aes(x = cyl, y = pct, fill = gear, 
               label = paste0(n, "\n(", scales::percent(pct), ")"))) +
    geom_col(position = "dodge") +
    geom_text(position = position_dodge(width = .9), vjust = -0.5, size = 3) +
    scale_y_continuous(labels = scales::percent, limits = c(0, 0.5)) +
    theme(axis.title.y = element_blank(),
          axis.text.y = element_blank())

回复收藏 0 原文

~没有更多了~