將總數添加到ggplot圖例

我用以下資料和代碼制作了一個頻率條形圖：

structure(list(Geslacht = c("man", "man", "man", "man", "man", 
"man", "man", "vrouw", "vrouw", "vrouw", "vrouw", "vrouw", "vrouw", 
"vrouw", "vrouw"), Lengteklasse = c(6, 7, 8, 9, 10, 11, 12, 6, 
7, 8, 9, 10, 11, 12, 13), Freq = c(1L, 9L, 19L, 21L, 35L, 22L, 
5L, 2L, 13L, 19L, 37L, 45L, 40L, 6L, 1L)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -15L), groups = structure(list(
    Geslacht = c("man", "vrouw"), .rows = structure(list(1:7, 
        8:15), ptype = integer(0), class = c("vctrs_list_of", 
    "vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -2L), .drop = TRUE))

ggplot(Freq_lengteklasse, aes(Lengteklasse, Freq, fill = Geslacht)) 
  geom_col() 
  scale_x_continuous(breaks = seq(6,13, by = 1)) 
  scale_y_continuous(breaks = seq(0,80, by = 10)) 
  labs(x = "Lengteklasse (cm)", y = "Frequentie") 
  scale_fill_manual(values=c('lightgray','black')) 
  theme_classic()

我想添加總計數man，vrouw應該說 n = 275，位于圖例下方。如何做到這一點？

uj5u.com熱心網友回復：

您可以tag在labs其中添加一個將顯示總數。您可以更改標簽在themewith中的位置plot.tag.position。您可以使用以下代碼：

library(tidyverse)
ggplot(Freq_lengteklasse, aes(Lengteklasse, Freq, fill = Geslacht)) 
  geom_col() 
  scale_x_continuous(breaks = seq(6,13, by = 1)) 
  scale_y_continuous(breaks = seq(0,80, by = 10)) 
  labs(x = "Lengteklasse (cm)", y = "Frequentie", tag = paste('n =', sum(Freq_lengteklasse$Freq))) 
  scale_fill_manual(values=c('lightgray','black')) 
  theme_classic()  
  theme(plot.tag.position = c(0.95, 0.4))

輸出：

注釋：斜體 n

您可以使用substitute并將您的值添加到 anenv中以像這樣粘貼它italic：

library(tidyverse)
ggplot(Freq_lengteklasse, aes(Lengteklasse, Freq, fill = Geslacht)) 
  geom_col() 
  scale_x_continuous(breaks = seq(6,13, by = 1)) 
  scale_y_continuous(breaks = seq(0,80, by = 10)) 
  labs(x = "Lengteklasse (cm)", y = "Frequentie", tag = substitute(expr = paste(italic("n"), " = ", x), env = base::list(x = sum(Freq_lengteklasse$Freq)))) 
  scale_fill_manual(values=c('lightgray','black')) 
  theme_classic()  
  theme(plot.tag.position = c(0.95, 0.4))

輸出：

uj5u.com熱心網友回復：

annotation_custom也適用于您的情況。

Freq_lengteklasse %>%
  ggplot(aes(Lengteklasse, Freq, fill = Geslacht)) 
  geom_col() 
  scale_x_continuous(breaks = seq(6,13, by = 1)) 
  scale_y_continuous(breaks = seq(0,80, by = 10)) 
  labs(x = "Lengteklasse (cm)", y = "Frequentie") 
  scale_fill_manual(values=c('lightgray','black')) 
  theme_classic()   
  annotation_custom(grob = textGrob("n = 275"),  
                    xmin = 14, xmax = 16, ymin = 26, ymax = 30)  
  coord_cartesian(clip = "off") 

uj5u.com熱心網友回復：

另一種選擇是使用 acowplot和patchworkhack。基本上，這涉及首先通過提取圖例cowplot::get_legend并將注釋創建為 grob。之后，我們通過 將這些元素與主圖粘合在一起patchwork。

library(ggplot2)

p <- ggplot(Freq_lengteklasse, aes(Lengteklasse, Freq, fill = Geslacht))  
  geom_col()  
  scale_x_continuous(breaks = seq(6, 13, by = 1))  
  scale_y_continuous(breaks = seq(0, 80, by = 10))  
  labs(x = "Lengteklasse (cm)", y = "Frequentie")  
  scale_fill_manual(values = c("lightgray", "black"))  
  theme_classic()


library(cowplot)
library(patchwork)

legend <- (p   theme(legend.justification = "bottom")) |> get_legend()
annotation <- grid::textGrob(label = "n = 275", y = unit(1, "npc"), vjust = 1)

design = "
AB
AC
"
list(p   guides(fill = "none"), legend, annotation) |> 
  wrap_plots()   
  plot_layout(widths = c(9, 1), design = design)

標籤：r ggplot2 数数 传奇

上一篇：Linux Cgroup v1(中文翻譯)(2)：CPUSETS

下一篇：如何垂直對齊圖例框的元素