Я хотел бы знать, как удалить часть NA из моей гистограммы ggplot и добавить к ней числовые метки

Question

Итак, я работаю с набором данных «пингвины» из следующего кода из профиля 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")

Answer 1

Вы можете отбросить 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")