ggplot2中coord_radial移除线段：如何让图形延伸至2π以外？

尝试构建径向图时，包含一段从略低于2*pi（示例中对应x=4）延伸至略高于2*pi（x=4.1）的线段，该线段被移除并出现警告：

Warning message:
Removed 1 row containing missing values or values outside the scale range (geom_line()).

复现问题的最小示例代码：

x=c( 0, 1, 2, 3, 4, 0, 1, 2, 3, 4.1)
y=c(10,12,17,13,10, 5, 6, 8, 7, 6)
grp = c(rep(1,5),rep(2,5))
df= data.frame(x = x, y = y, g = grp)

p1 <- ggplot(df, aes(x=x, y=y, group=g))+
  geom_line() + ylim(0,18) +
  coord_radial(clip="off",expand=FALSE) 
p2 <- ggplot(df, aes(x=x, y=y, group=g))+
  geom_line() + ylim(0,18) +
  coord_radial(clip="off",expand=FALSE) + xlim(0,4)

library(gridExtra)
grid.arrange(p1,p2,ncol=2)

强制x范围为0到4时，终点为4.1的线段被移除，期望实现截断显示而非移除，同时原以为clip="off"会保留超出范围的元素，但未生效。

核心原因 #

xlim()默认使用scales::oob_censor处理超出范围的数据，会将超出值转为NA，导致对应数据行被过滤，进而geom_line因缺失端点移除最后一段线段。clip="off"仅控制绘图区域外的元素是否可见，无法解决数据被过滤的问题。

方法1：使用scale_x_continuous配合squish处理超出值 #

通过oob = scales::squish将超出x范围的值压缩到边界值，线段会自然延伸到x上限位置，不会被移除：

library(ggplot2)
library(gridExtra)

x=c( 0, 1, 2, 3, 4, 0, 1, 2, 3, 4.1)
y=c(10,12,17,13,10, 5, 6, 8, 7, 6)
grp = c(rep(1,5),rep(2,5))
df= data.frame(x = x, y = y, g = grp)

p_fix <- ggplot(df, aes(x=x, y=y, group=g))+
  geom_line() + 
  ylim(0,18) +
  # 用scale_x_continuous替代xlim，设置oob为squish
  scale_x_continuous(limits = c(0,4), oob = scales::squish) +
  coord_radial(clip="off", expand=FALSE) 

grid.arrange(p2, p_fix, ncol=2) # 对比原p2和修复后的图

方法2：手动预处理数据 #

直接将超出x范围的数值替换为边界值，效果与方法1一致，适合需要精细控制数据的场景：

df_processed <- df
# 将x>4的值替换为4
df_processed$x[df_processed$x > 4] <- 4

p_fix2 <- ggplot(df_processed, aes(x=x, y=y, group=g))+
  geom_line() + 
  ylim(0,18) +
  xlim(0,4) +
  coord_radial(clip="off", expand=FALSE) 

方法3：对角度取模实现环绕效果 #

如果希望超出2*pi的角度绕回起始位置（即用户最初设想的“取模”行为），可以对x值取模处理：

df_mod <- df
# 以4为周期取模，对应2*pi的循环
df_mod$x <- df_mod$x %% 4

p_mod <- ggplot(df_mod, aes(x=x, y=y, group=g))+
  geom_line() + 
  ylim(0,18) +
  xlim(0,4) +
  coord_radial(clip="off", expand=FALSE) 

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