无法为cowplot组合图添加图例，求解决方案及ggsave保存技巧

一、实现共享水平图例（置于地图下方） #

你遇到的get_legend警告是因为每个子图都包含图例组件，默认只返回第一个但未正确渲染。可以通过以下步骤解决：

1. 编写子图生成函数，移除子图自身图例
   先创建生成单幅直方图的函数，让每个子图不显示自己的图例：

   library(ggplot2)
   library(gridExtra)
   
   # 定义生成无图例直方图的函数
   create_hist <- function(data) {
     ggplot(data, aes(x = value, fill = group_var)) +
       geom_histogram(bins = 15, alpha = 0.8) +
       # 移除子图的图例
       theme(legend.position = "none")
   }
   
   # 生成四个子图（替换成你的实际数据）
   plot1 <- create_hist(data_subset1)
   plot2 <- create_hist(data_subset2)
   plot3 <- create_hist(data_subset3)
   plot4 <- create_hist(data_subset4)
   

2. 生成带水平图例的参考图并提取图例
   单独创建一个仅用于提取图例的图，设置图例为水平方向：

   # 生成带水平图例的参考图
   legend_ref <- ggplot(data_subset1, aes(x = value, fill = group_var)) +
     geom_histogram(bins = 15, alpha = 0.8) +
     # 设置图例为水平，标题居上
     guides(fill = guide_legend(direction = "horizontal", title.position = "top")) +
     theme(legend.position = "bottom")
   
   # 提取图例组件（替代get_legend，避免多组件警告）
   extract_legend <- function(plot_obj) {
     plot_grob <- ggplot_gtable(ggplot_build(plot_obj))
     legend_idx <- which(sapply(plot_grob$grobs, function(x) x$name) == "guide-box")
     plot_grob$grobs[[legend_idx]]
   }
   
   plot_legend <- extract_legend(legend_ref)
   

3. 拼接子图与图例
   使用grid.arrange将四个子图按2x2排列，再把图例放在下方：

   # 拼接子图（2行2列）
   subplots <- arrangeGrob(plot1, plot2, plot3, plot4, ncol = 2)
   # 组合子图和图例，调整高度比例（图例占1份，子图占9份）
   final_plot <- grid.arrange(subplots, plot_legend, ncol = 1, heights = c(9, 1))
   

二、ggsave保存与Zoom窗口一致的技巧 #

不用反复调整宽高，直接获取Zoom窗口的尺寸再保存：

1. 打开RStudio的Zoom窗口，调整到你满意的子图布局和大小；
2. 在控制台输入以下代码获取当前窗口的宽高（单位：英寸）：

   window_size <- dev.size("in")
   

3. 使用获取到的尺寸保存图片：

   ggsave("final_map.png", plot = final_plot, 
          width = window_size[1], height = window_size[2], 
          dpi = 300)
   

这样保存的图片和你在Zoom窗口看到的布局、比例完全一致。

内容的提问来源于stack exchange，提问作者Beardedant