Print sample size outside of boxplot boundary with ggplot in R-CodePudding

I'd like to display the sample size of each species on my boxplot, but the plot is fairly cluttered. Is there a way to display the sample size on the "outside" of the plot with "N" as the header (sample size should go in the red area I highlighted)?

df <- data.frame(year = rep(c(2019, 2020), each = 10),
                 month = rep(c("March", "October"), each = 1), 
                 site = rep(c("1", "2", "3", "4", "5"), each = 2),
                 type = rep(c("baitfish", "shark"), each = 1),
                 salinity = sample(x = 20:35, size  = 20, replace = TRUE),
                 num = sample(x = 0:10, size  = 20, replace = TRUE))

count_by_row <- data.frame(df[rep(row.names(df), df$num), 1:5])
    
    
    ggplot(data=subset(count_by_row, !is.na(salinity)), aes(x = reorder(type, -salinity, FUN = median), y = salinity))  
      geom_boxplot(outlier.shape = 1, outlier.size = 2)  
      coord_flip()  
      xlab("")  
      ylab("salinity (PSU)")

CodePudding user response：

You could add a custom annotation after increasing the right margin:

ggplot(data=subset(count_by_row, !is.na(salinity)), 
       aes(y = reorder(type, -salinity, FUN = median), x = salinity))  
  geom_boxplot(outlier.shape = 1, outlier.size = 2, orientation = "y")  
  coord_cartesian(clip = "off")  
  annotation_custom(grid::textGrob(c("N", table(count_by_row$type)),
                                   x = 1.1, y = c(0.9, 0.28, 0.72),
                                   gp = grid::gpar(cex = 1.5)))  
  ylab("")  
  xlab("salinity (PSU)")  
  theme_bw(base_size = 20)  
  theme(plot.margin = margin(20, 100, 20, 20))