使用shape和color映射时，如何将ggplot2底部图例标题移至顶部居中？

你可以通过guides()函数统一设置图例引导参数，指定标题位置和对齐方式，同时确保两个映射（color和shape）共享同一标题，实现标题在图例顶部居中的效果。修改后的完整代码如下：

mtcars$carb_string <- as.character(mtcars$carb)
library(ggplot2)

p <- ggplot(mtcars, aes(x = wt, y = mpg, color = carb_string, shape = carb_string)) +
  geom_point() +
  # 基础主题设置：图例在底部、添加图例边框和边距
  theme(legend.position = "bottom",
        legend.box.background = element_rect(),
        legend.box.margin = margin(5, 5, 5, 5)) +
  # 设置图例标题位置为顶部，水平居中对齐
  guides(
    color = guide_legend(title.position = "top", title.hjust = 0.5),
    shape = guide_legend(title.position = "top", title.hjust = 0.5)
  ) +
  # 统一两个映射的图例标题，避免重复
  labs(color = "carb_string", shape = "carb_string")

p

关键参数说明 #

• title.position = "top"：将图例标题放置在图例区域的顶部
• title.hjust = 0.5：让标题水平居中（0为左对齐，1为右对齐，0.5为居中）
• 因为同时使用了color和shape两个美学映射，需要对两者的图例引导都做相同设置，确保合并后的图例标题样式统一

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