ggplot图例组件控制：如何将大小与颜色图例并列放置？

这个需求太常见了——默认的图例堆叠方式经常没法满足我们的布局要求，下面给你几个亲测好用的解决方案：

方法1：用ggplot2自带参数实现横向并列 #

如果只是想让两个图例在同一行并排显示，不用额外装包就能搞定，调整主题里的legend.box参数就行：

my.df <- data.frame(x=c(1,2,3,4), y=c(1,2,3,4), grp=c("a", "a", "b", "b"), wt=c(1,2,3,4))
library(ggplot2)

p1 <- ggplot(my.df, aes(x, y, col=grp, size=wt)) + 
  geom_point() +
  scale_colour_manual(values=c("red", "blue"), name="Group") +
  scale_size(name="Size") +
  theme(
    legend.position = c(0.85, 0.35), # 整体图例组的位置
    legend.box = "horizontal", # 把图例框改成水平布局，让两个图例并列
    legend.box.just = "center", # 图例在框内的对齐方式
    legend.spacing.x = unit(0.5, "cm") # 控制两个图例之间的间距，避免挤在一起
  )
p1

这个方法简单直接，适合只需要横向并列的场景。

方法2：用ggnewscale把图例拆到不同位置 #

如果想把两个图例分别放在图表的不同角落（比如一个右上角，一个左下角），ggnewscale包可以帮你创建完全独立的图例组：
先安装加载包：

install.packages("ggnewscale")
library(ggnewscale)

然后修改代码，把其中一个美学映射放到新的scale层里：

p2 <- ggplot(my.df, aes(x, y)) +
  # 先处理颜色映射，创建第一个图例
  geom_point(aes(col=grp), size=my.df$wt) + # 手动传入size值，先搞定颜色图例
  scale_colour_manual(values=c("red", "blue"), name="Group") +
  theme(legend.position = c(0.9, 0.9)) + # 设置颜色图例的位置
  # 开启新的scale层，处理大小映射
  new_scale("size") +
  geom_point(aes(size=wt), col=my.df$grp) + # 手动传入颜色值，搞定大小图例
  scale_size(name="Size") +
  theme(legend.position = c(0.1, 0.1)) # 设置大小图例的位置
p2

这样两个图例就完全独立了，各自的位置、样式都可以单独调整。

方法3：用patchwork+cowplot自由拼接布局 #

如果需要更灵活的布局（比如图例放在图表外部的任意位置），可以把图表和图例分开提取，再用patchwork组合：

install.packages(c("patchwork", "cowplot"))
library(patchwork)
library(cowplot)

# 先创建不带图例的基础图表
p_nolegend <- p1 + theme(legend.position = "none")

# 单独提取颜色图例
legend_col <- get_legend(p1 + guides(size="none") + theme(legend.position = "bottom"))
# 单独提取大小图例
legend_size <- get_legend(p1 + guides(colour="none") + theme(legend.position = "bottom"))

# 自由组合布局：比如图表占主要区域，颜色图例放右侧，大小图例放底部
p_nolegend + legend_col + plot_layout(widths = c(8, 1)) / 
  plot_spacer() + legend_size + plot_layout(heights = c(8, 1))

这个方法自由度最高，不管你想把图例放在哪里都能实现，适合复杂的可视化需求。

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