ggplot绘图中形状与线型图例重叠问题求助

我完全明白你的困扰——当用形状（shape）和线型（linetype）同时映射同一个分类变量时，图例里的点会填满虚线的空隙，导致线型的区分度大打折扣，这对打印场景来说特别不友好。我先复现了你的问题，然后整理了几个实用的解决方案：

首先补全并复现问题代码：

library(tidyverse)
set.seed(44)
data_frame(x = rep(1:10, 2), 
           y = rnorm(20), 
           z = gl(n = 2, k = 10)) %>% 
  ggplot(aes(x = x, y = y, colour = z, shape = z, linetype = z)) +
  geom_point(size = 3) + # 放大点更直观展示问题
  geom_smooth(method = "lm", se = FALSE)

这个代码生成的图例里，虚线的空隙会被点完全覆盖，几乎看不出线型差异。下面是具体的解决方法：

方案1：调整图例宽度与点大小（最推荐） #

通过加宽图例的key宽度，给线型留出展示空间，同时缩小图例内部的点尺寸，避免填满虚线空隙：

library(tidyverse)
set.seed(44)
data_frame(x = rep(1:10, 2), 
           y = rnorm(20), 
           z = gl(n = 2, k = 10)) %>% 
  ggplot(aes(x = x, y = y, colour = z, shape = z, linetype = z)) +
  geom_point(size = 3) +
  geom_smooth(method = "lm", se = FALSE) +
  # 统一调整图例参数
  guides(
    colour = guide_legend(
      override.aes = list(size = 2), # 缩小图例内的点
      keywidth = unit(1.5, "cm")     # 加宽图例key，让线型清晰展示
    ),
    shape = guide_legend(keywidth = unit(1.5, "cm")),
    linetype = guide_legend(keywidth = unit(1.5, "cm"))
  ) +
  theme(legend.key.width = unit(1.5, "cm")) # 全局设置图例key宽度

方案2：加粗拟合曲线增强辨识度 #

如果不想调整图例大小，可以直接加粗拟合曲线，让线型的对比更强烈，即使有点覆盖也能区分：

library(tidyverse)
set.seed(44)
data_frame(x = rep(1:10, 2), 
           y = rnorm(20), 
           z = gl(n = 2, k = 10)) %>% 
  ggplot(aes(x = x, y = y, colour = z, shape = z, linetype = z)) +
  geom_point(size = 3) +
  geom_smooth(method = "lm", se = FALSE, linewidth = 1.2) + # 加粗曲线
  guides(
    colour = guide_legend(override.aes = list(size = 2)) # 缩小图例内的点
  )

方案3：自定义图例key的绘制位置 #

通过自定义图例key的绘制逻辑，让点稍微偏移，避免完全覆盖虚线空隙：

library(tidyverse)

# 自定义图例key：先画线，再画偏移后的点
custom_key <- function(data, params, size) {
  grid::grobTree(
    ggplot2::draw_key_path(data, params, size),
    ggplot2::draw_key_point(transform(data, x = 0.3), params, size) # 点偏移到左侧
  )
}

set.seed(44)
data_frame(x = rep(1:10, 2), 
           y = rnorm(20), 
           z = gl(n = 2, k = 10)) %>% 
  ggplot(aes(x = x, y = y, colour = z, shape = z, linetype = z)) +
  geom_point(size = 3) +
  geom_smooth(method = "lm", se = FALSE, key_glyph = custom_key) +
  guides(colour = guide_legend(keywidth = unit(1.5, "cm")))

我个人推荐方案1，操作简单且效果稳定，既能保证线型和形状的双重区分度，完美适配打印等无色彩场景。

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