R ggplot2移除网格线、消除面板边框与轴文本/刻度间距方法

问题说明 #

使用ggplot2绘图时，默认会在数据范围两端预留5%左右的扩展边距，导致自定义坐标轴时出现网格线、轴线伸出数据范围外的问题。手动绘制白色矩形遮盖的方案属于hack写法，在透明背景、自定义面板填充场景下会直接穿帮，且需要随数据范围手动调整矩形位置，复用性极差。
初始效果如下：

矩形遮盖方案效果如下：

规范实现方案 #

无需额外添加遮盖图层，仅需调整连续标度的扩展参数即可实现目标效果，代码如下：

library(tidyverse)

tibble(x = c(0, 100), y = c(1, 0)) %>% 
  ggplot(aes(x = x, y = y)) +
  geom_line(color = "#66ccff", size = 3, lineend = "round") +
  # 绘制长度严格匹配数据范围的自定义坐标轴
  geom_segment(x = 0, y = 0, xend = 0, yend = 1, color = "gray60", size = 0.6, lineend = "square") +
  geom_segment(x = 0, y = 0, xend = 100, yend = 0, color = "gray60", size = 0.6, lineend = "square") +
  theme_minimal() +
  labs(y = "Y Label", x = "X Label") +
  # 核心设置：将坐标轴扩展边距设为0，面板范围严格对齐数据边界
  scale_x_continuous(breaks = seq(0, 100, by = 20), minor_breaks = NULL, expand = expansion(0, 0)) +
  scale_y_continuous(labels = scales::percent, minor_breaks = NULL, expand = expansion(0, 0)) +
  theme(
    axis.title = element_text(size = 16, color = "gray30"),
    axis.text = element_text(size = 14, color = "gray30"),
    axis.line = element_blank() # 关闭默认轴线，避免和自定义轴线重叠
  )

实现后的目标效果：

补充说明 #

• expansion()是ggplot2 3.0.0版本后引入的参数函数，旧版本可直接写expand = c(0, 0)实现相同效果
• 如果不需要完全贴边，可通过expansion(mult = 比例值)设置小比例扩展边距，避免图形元素贴边过于局促，例如expansion(mult = 0.02)会在数据范围两端各留2%的边距
• 该方案适配所有主题、所有导出格式，不会出现遮盖方案的穿帮问题，更换数据范围时不需要手动调整参数，复用性更强

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