Легенда GGplot, показывающая пустое заполнение для отсутствующего уровня фактора

Я пытаюсь использовать ggplot для построения частотного графика, где пропущенные значения все еще отображаются в легенде. Мне удалось добиться этого, установив drop = FALSE в scale_fill_manual, однако в легенде переброшенное поле не имеет цвета, хотя я его явно установил. Я создал пример, аналогичный моим данным ниже. В этом примере я ищу Мале для отображения в легенде с цветом, установленным в scale_fill_manual, но не могу понять, как это сделать.

Data_Sample <- data.frame(CatType = c(rep("C1",3), rep("C2",7), rep("C3",8), rep("C4", 9), rep("C5", 2), rep("C6", 1)), 
Owner = c("Angela", "Karen", "Angela")) %>%
  mutate(Sex = ifelse(str_detect(CatType,"6"), "Male", "Female"),
         CatID = str_pad(row_number(), 2, pad = "0"),
         Sex = factor(Sex, c("Male" = "Male", "Female" = "Female")),
         Owner = factor(Owner, c("Angela" = "Angela", "Karen" = "Karen")),
         CatType = factor(CatType))

Sample_Plot <- ggplot(Data_Sample %>% filter(., Owner == "Karen"), aes(x = CatType)) +
  geom_bar(colour = "#2E312F",aes(y = 100*((..count..)/sum(..count..)), fill = Sex)) +
  scale_x_discrete(drop = FALSE) +
  geom_text(aes(label = paste(stat(100*round((..count..)/sum(..count..),5)), "%", sep = ""), x = CatType, y = stat(100*round((..count..)/sum(..count..),5))), stat = "count", colour = "#2E312F",size = 3.5, fontface = "bold", vjust = -0.25) +
  theme(axis.text.x = element_text(face = "bold"),
        axis.title.y = element_text(face = "bold", size=11),
        axis.text.y = element_text(face = "bold"),
        axis.title.x = element_text(face = "bold", size=11),
        legend.title = element_text(face = "bold", size=11),
        legend.text = element_text(face = "bold", size=7.5),
        plot.title = element_text(face = "bold", size=14, hjust = 0.5),
        legend.title.align = 0.5,
        legend.text.align = 0,
        legend.box.background = element_rect(colour = "black", fill = "transparent", size = 1.5),
        strip.text = element_text(face = "bold", size=14),
        panel.border = element_rect(colour = "black", fill=NA, linewidth = 2)
  ) +
  scale_fill_manual(values = c("Female" = "#c90076", "Male" = "#2986cc"), drop = FALSE) +
  guides(fill = guide_legend(reverse=TRUE)) +
  labs(x = "Cat Type", y = "Percentage of Cats", title = paste("Karen's Cats", sep  = " ")) +
  scale_y_continuous(label=scales::label_percent(scale = 1), limits = c(0,100))

r ggplot2 fill geom-bar

10.04.2024 17:53

Стоит ли изучать PHP в 2023-2024 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

190

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Это связано с изменением, внесенным в ggplot2 3.5.0, которое теперь требует явного добавления show.legend=TRUE к geom, чтобы отобразить ключ легенды для неиспользуемых уровней фактора. Также обратите внимание, что я перешел на after_stat, поскольку .. и stat устарели с версии 3.4.0, и используйте hjust для выравнивания текста легенды и заголовка, поскольку legend.xxx.align устарела в 3.5.0.

library(ggplot2)
library(dplyr, warn = FALSE)

ggplot(Data_Sample %>% filter(., Owner == "Karen"), aes(x = CatType)) +
  geom_bar(colour = "#2E312F", aes(
    y = 100 * after_stat(count / sum(count)),
    fill = Sex
  ), show.legend = TRUE) +
  scale_x_discrete(drop = FALSE) +
  geom_text(
    aes(
      label = paste0(round(100 * after_stat(count / sum(count))), "%"),
      x = CatType,
      y = 100 * after_stat(count / sum(count))
    ),
    stat = "count", colour = "#2E312F",
    size = 3.5, fontface = "bold", vjust = -0.25
  ) +
  theme(
    axis.text.x = element_text(face = "bold"),
    axis.title.y = element_text(face = "bold", size = 11),
    axis.text.y = element_text(face = "bold"),
    axis.title.x = element_text(face = "bold", size = 11),
    legend.title = element_text(face = "bold", size = 11, hjust = .5),
    legend.text = element_text(face = "bold", size = 7.5, hjust = 0),
    plot.title = element_text(face = "bold", size = 14, hjust = 0.5),
    legend.box.background = element_rect(
      colour = "black",
      fill = "transparent", linewidth = 1.5
    ),
    strip.text = element_text(face = "bold", size = 14),
    panel.border = element_rect(colour = "black", fill = NA, linewidth = 2)
  ) +
  scale_fill_manual(values = c("Female" = "#c90076", "Male" = "#2986cc"), drop = FALSE) +
  guides(fill = guide_legend(reverse = TRUE)) +
  labs(x = "Cat Type", y = "Percentage of Cats", title = paste("Karen's Cats", sep = " ")) +
  scale_y_continuous(label = scales::label_percent(scale = 1), limits = c(0, 100))

Спасибо за ответ. Это сработало, и спасибо за помощь с другими устаревшими вещами! Единственное, что касается вашего after_stat, похоже, в нем нет правильных круглых скобок, поскольку текст находится в неправильном месте и связаны неправильные проценты.

— 10.04.2024 23:56

Оу. Извини. Кроме того, я забыл умножить положение метки y на 100. Только что внес изменения, чтобы исправить обе проблемы.

— 11.04.2024 06:47

и тут я ходил кругами, потому что старый код не работал....

— 14.07.2024 12:11

10.04.2024 20:09