时间戳

首页 > 解决方案 > 我想知道如何删除我的 ggplot 条形图的 NA 部分并向其添加数字标签

r - 我想知道如何删除我的 ggplot 条形图的 NA 部分并向其添加数字标签

问题描述

因此，我正在使用来自 github 配置文件的以下代码中的“企鹅”数据集。我想通过构建一个条形图 (geom_bar) 来评估来自岛屿的性个体数量，该条形图分布每个岛屿中的男性和女性数量，并带有一个标签，提供同一“岛屿”类别中的男性和女性的计数. 此外，我一直在努力尝试编写一个代码块，从我的图例和数据可视化中删除 NA 计数。

    install.packages("remotes")
    remotes::install_github("allisonhorst/palmerpenguins")
    library(palmerpenguins)

    ggplot(penguins, aes(island)) +
      geom_bar(aes(fill = sex), width = 0.5) +
      theme(axis.text.x = element_text(angle = 65, vjust= 0.6)) +
      labs(title = "All Accessible Penguin Sex Count",
           x = "island",
           y = "Number of Individuals",
           fill = "Sex")

标签： rggplot2

解决方案

您可以通过子集数据框来删除 NA，并使用 geom_text 添加数字标签，例如

ggplot(data = subset(penguins, !is.na(sex)),
       aes(x = island, fill = sex)) +
  geom_bar(width = 0.5) +
  geom_text(stat='count', aes(label=..count..),
            position = position_stack(vjust = 0.5)) +
  theme(axis.text.x = element_text(angle = 65, vjust= 0.6)) +
  labs(title = "All Accessible Penguin Sex Count",
       x = "island",
       y = "Number of Individuals",
       fill = "Sex")

推荐阅读