ggplot2自定义位置图例：如何让数据绕开图例避免重叠？

当你用legend.position = c(x, y)把图例放在绘图区内部时，原生ggplot不会自动让数据绕开图例，但可以通过以下几种方法解决，且不需要修改图例的位置参数：

• 手动限制绘图显示范围
  直接通过coord_cartesian()截断图例所在区域的显示内容，数据本身不会被过滤，只是绘图时不展示遮挡区域的部分。示例代码：

  library(ggplot2)
  df <- data.frame(x = 1:10, y = 1:10, group = letters[1:2])
  
  ggplot(df, aes(x, y, color = group)) +
    geom_point(size = 5) +
    theme(legend.position = c(0.85, 0.85)) +
    # 手动缩小x、y轴的显示上限，留出图例空间
    coord_cartesian(xlim = c(1, 9), ylim = c(1, 9))
  

• 动态计算图例尺寸并调整范围
  如果需要批量处理或不想手动猜数值，可以通过ggplotGrob()获取图例的实际尺寸，再动态调整绘图范围：

  library(ggplot2)
  df <- data.frame(x = 1:10, y = 1:10, group = letters[1:2])
  
  # 先创建基础绘图对象
  p <- ggplot(df, aes(x, y, color = group)) +
    geom_point(size = 5) +
    theme(legend.position = c(0.85, 0.85))
  
  # 提取图例的尺寸信息
  g <- ggplotGrob(p)
  legend_grob <- g$grobs[[which(g$layout$name == "guide-box")]]
  legend_width <- as.numeric(legend_grob$width)
  legend_height <- as.numeric(legend_grob$height)
  
  # 转换为数据坐标的偏移量，调整显示范围
  x_diff <- diff(range(df$x)) * legend_width
  y_diff <- diff(range(df$y)) * legend_height
  
  p + coord_cartesian(
    xlim = c(min(df$x), max(df$x) - x_diff),
    ylim = c(min(df$y), max(df$y) - y_diff)
  )
  

• 提前调整数据范围
  如果允许修改数据的显示范围，也可以直接用xlim()/ylim()过滤掉会被图例遮挡的数据点，但这种方法会实际移除超出范围的数据，适合对数据范围有明确要求的场景。

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