使用xlim、ylim和scale_continuous时ggplot顶部边框消失原因

问题根源 #

当前代码里的几个点直接导致了边框消失：

• 用xlim()/ylim()设置范围会过滤超出范围的数据，干扰ggplot的边框渲染逻辑；
• 手动设置panel.border = element_blank()后，没有补充其他方式绘制完整边框；
• geom_text_repel的xlim/ylim设为无限范围，可能导致文本超出绘图区域挤压边框显示。

修复方案 #

以下是调整后的完整代码，针对问题点逐一修正：

x1 = c(0, 10, 10, 0)
x2 = c(10, 20, 20, 10)
y1 = c(0, 0, 10, 10)
y2 = c(10, 10, 20, 20)
theme_set(theme_bw())

# 循环生成4个目标散点图（n取1-4对应四个区域）
for(n in 1:4){
  hd <- paste0("区域", n)
  subheads <- "四分之一坐标区域散点图"
  
  ggplot(onemap, aes(x = lx, y = ly)) + 
    geom_point(size = .3) +
    # 用coord_cartesian替代xlim/ylim，仅缩放视图不过滤数据
    coord_cartesian(xlim = c(x1[n], x2[n]), ylim = c(y1[n], y2[n]), expand = FALSE) +
    scale_y_continuous(breaks = seq(y1[n], y2[n], 5),
                       minor_breaks = seq(y1[n], y2[n], 1)) +
    scale_x_continuous(breaks = seq(x1[n], x2[n], 5),
                       minor_breaks = seq(x1[n], x2[n], 1)) +
    labs(
      x = element_blank(),
      y = element_blank(),
      title = hd,
      subtitle = subheads
    ) +
    theme(plot.title.position = "plot") +
    theme(
      plot.title = element_text(
        size = 14,
        face = "bold",
        margin = margin(8, 0, 8, 0)
      ),
      plot.subtitle = element_text(size = 10),
      plot.margin = margin(
        t = 1,
        r = 2,
        b = 1.5,
        l = 2,
        unit = "cm"
      ),
      axis.ticks = element_blank(),
      axis.text = element_text(size = 6),
      axis.text.y = element_text(angle = 90),
      # 用axis.line绘制完整的四个边框，替代被取消的panel.border
      axis.line = element_line(color = "black", linewidth = 0.5),
      panel.grid.major = element_line(color = "gray30", linewidth = .25),
      panel.grid.minor = element_line(
        color = "gray30",
        linewidth = .25,
        linetype = "dashed"
      ),
      panel.border = element_blank()
    ) +
    geom_text_repel(
      aes(label = tag),
      box.padding = 0.01,
      size = 2,
      # 让文本范围和绘图区域一致，避免挤压边框
      xlim = c(x1[n], x2[n]),
      ylim = c(y1[n], y2[n]),
      max.overlaps = 45,
      segment.size = 0.2, # 原2的线太粗会遮挡点，调整为更合理的粗细
      segment.color = "grey"
    )
}

关键修改说明 #

• 替换坐标范围设置：用coord_cartesian(expand = FALSE)替代xlim/ylim，确保绘图区域严格匹配设定范围，同时保留所有数据，避免过滤数据导致的渲染异常；
• 补充完整边框：通过axis.line设置四个方向的黑色边框，弥补panel.border = element_blank()带来的边框缺失；
• 修正文本范围：把geom_text_repel的xlim/ylim改为和当前绘图区域一致，防止文本超出区域导致边框被隐藏；
• 优化文本连接线：调小segment.size，避免过粗的连接线遮挡散点或边框。

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