GGplot圖例顯示缺失因子水平的空白填充

Question 1

我正試圖使用ggplot繪制一個頻率圖，其中刪除的值仍顯示在圖例中。我已經能夠通過在scale_fill_manual中設置drop = FALSE來實現這一點，但是，盡管我已經明確設置了刪除的字段，但它在圖例中沒有顏色。我創建了一個與下面的數據類似的示例。在這個例子中，我正在尋找用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))

Question 2

這是由于在ggplot2 3.5.0中引入了一個更改，該更改現在需要將show.legend=TRUE顯式添加到geom中，以顯示未使用因子級別的圖例鍵。另外請注意，我切換到了after_stat，因為..和stat在版本3.4.0中已被棄用，并且使用hjust來對齊圖例文本和標題，因為{#18}在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))

Answer 1

這是由于在ggplot2 3.5.0中引入了一個更改，該更改現在需要將show.legend=TRUE顯式添加到geom中，以顯示未使用因子級別的圖例鍵。另外請注意，我切換到了after_stat，因為..和stat在版本3.4.0中已被棄用，并且使用hjust來對齊圖例文本和標題，因為{#18}在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))

GGplot圖例顯示缺失因子水平的空白填充

熱門問答

日期似乎沒有給出合適的時間

如何確認密碼

在大數據集上計算漢明距離

僅從元素中刪除單擊事件

測試響應式設計：手動拖動瀏覽器窗口與使用設備工具欄

為什么ForObject -Parallel給出了null-valued表達式，但卻沒有{@110}標志？

如何使用Python檢測網頁中的圖像URL是否有效并自動下載

從PHP調用SQL Server Reporting Services - 身份驗證問題

路由在FOSRestBundle和Symfony中不起作用

如何使用Stripe webhook / endpoint獲取客戶電子郵件

pandas給某一列加上固定字符

如何理解這樣的一道題？（不要測試，留下你的分析過程與結果）