如何在ggplot中分别设置colorbar（底部）与颜色图例（面板内）的位置？

针对你需要将连续fill的色条放在底部、离散color的图例嵌入绘图面板的需求，以下是几种比原方案更高效的实现方式：

方法1：精简版原生方案 #

无需重复绘制完整图表，仅单独生成离散图例的grob对象，再添加到主图中：

library(ggplot2)
library(cowplot)
library(ggpubr)

# 主图：保留底部的fill色条，隐藏color图例
p_main <- ggplot(mpg, aes(x = displ, y = cty, color = manufacturer, fill = year)) +
  geom_point(shape = 21) +
  theme_classic() +
  guides(color = "none") +
  theme(legend.position = "bottom")

# 单独生成color图例的grob（可通过guide_legend调整行列数优化显示）
color_legend <- get_legend(
  ggplot(mpg, aes(color = manufacturer)) +
    geom_point(shape = 21) +
    guides(color = guide_legend(nrow = 2))
)

# 将图例嵌入主图指定位置
p_main +
  annotation_custom(
    grob = as_grob(color_legend),
    xmin = 4, xmax = 7,
    ymin = 25, ymax = 30
  )

方法2：用patchwork实现相对定位 #

patchwork的inset_element支持相对坐标定位，无需关注数据的具体数值范围，适配性更强：

library(ggplot2)
library(patchwork)

# 主图：隐藏color图例，保留底部fill色条
p_main <- ggplot(mpg, aes(x = displ, y = cty, color = manufacturer, fill = year)) +
  geom_point(shape = 21) +
  theme_classic() +
  guides(color = "none") +
  theme(legend.position = "bottom")

# 生成仅含color图例的子图（隐藏绘图区域）
p_legend <- ggplot(mpg, aes(color = manufacturer)) +
  geom_point(shape = 21) +
  theme_void() +
  guides(color = guide_legend(nrow = 2)) +
  theme(legend.position = "center")

# 按相对位置嵌入图例（left/right/bottom/top取值0-1，对应绘图区域的比例位置）
p_main + inset_element(p_legend, left = 0.4, right = 0.7, bottom = 0.7, top = 0.9)

方法3：grid包底层定制（进阶） #

通过直接操作ggplot的grob对象，实现最灵活的布局控制，适合复杂定制场景：

library(ggplot2)
library(grid)
library(gtable)

# 绘制基础图表
p <- ggplot(mpg, aes(x = displ, y = cty, color = manufacturer, fill = year)) +
  geom_point(shape = 21) +
  theme_classic() +
  theme(legend.position = "bottom")

# 提取图表的grob结构
g <- ggplotGrob(p)

# 分离color图例和fill色条
legend_box_idx <- which(g$layout$name == "guide-box")
legend_grob <- g$grobs[[legend_box_idx]]

# 分别提取color图例和fill色条对象
color_guide <- legend_grob$grobs[[which(sapply(legend_grob$grobs, function(x) x$name) == "guide-colour")]]
fill_guide <- legend_grob$grobs[[which(sapply(legend_grob$grobs, function(x) x$name) == "guide-colorbar")]]

# 将fill色条放回底部，把color图例嵌入绘图面板
g$grobs[[legend_box_idx]] <- fill_guide
g <- gtable_add_grob(g, color_guide, t = 4, l = 4, b = 4, r = 4, name = "inner-legend")

# 渲染最终图表
grid.draw(g)

方案对比 #

• 方法1：原方案的精简优化，减少重复代码，适合快速调整
• 方法2：相对坐标定位，适配不同尺寸图表，无需手动计算数据范围
• 方法3：底层控制，灵活性最高，但需要一定的grid/gtable知识

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