使用ggplot2填充两条直线间区域时坐标限制导致填充缺漏问题

问题原因 #

出现边缘区域未填充的核心原因是：scale_x_continuous和scale_y_continuous的limits参数会直接过滤掉所有超出坐标范围的数据点，导致geom_ribbon计算填充区域时缺少边缘的点位，从而出现空缺。不加范围限制时所有数据都参与计算，因此填充正常。

解决方法 #

方法1（推荐）：用coord_cartesian设置显示范围 #

coord_cartesian的范围限制仅作用于视觉显示层面，不会删除原始数据，所有点位都会参与填充计算，完全兼容保留坐标范围限制的需求。修改后的代码如下：

library(ggplot2)
set.seed(1)
x <- runif(10000,17,18)
yone <- x+1/4
ytwo <- x-1/4
df <- data.frame(x,yone,ytwo)

ggplot(df,aes(x=x)) + 
    geom_line(aes(y=yone)) + 
    geom_line(aes(y=ytwo)) +
    geom_ribbon(aes(ymin = yone, ymax = ytwo),fill='blue',alpha=0.5) +
    geom_hline(yintercept=17) +
    geom_vline(xintercept=17) +
    geom_hline(yintercept=18) +
    geom_vline(xintercept=18) +
    theme_bw() +
    scale_x_continuous(expand=c(0,0)) +
    scale_y_continuous(expand=c(0,0)) +
    coord_cartesian(xlim = c(17,18), ylim = c(17,18))

方法2：保留scale的limits，修改oob参数 #

如果确实需要在scale层面设置范围，可以给scale_x_continuous和scale_y_continuous添加oob = scales::oob_keep参数，让超出范围的点不被删除，仅做裁剪处理：

library(ggplot2)
library(scales)
set.seed(1)
x <- runif(10000,17,18)
yone <- x+1/4
ytwo <- x-1/4
df <- data.frame(x,yone,ytwo)

ggplot(df,aes(x=x)) + 
    geom_line(aes(y=yone)) + 
    geom_line(aes(y=ytwo)) +
    geom_ribbon(aes(ymin = yone, ymax = ytwo),fill='blue',alpha=0.5) +
    geom_hline(yintercept=17) +
    geom_vline(xintercept=17) +
    geom_hline(yintercept=18) +
    geom_vline(xintercept=18) +
    theme_bw() +
    scale_x_continuous(expand=c(0,0), limits = c(17,18), oob = oob_keep) +
    scale_y_continuous(expand=c(0,0), limits = c(17,18), oob = oob_keep)

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