如何在geom_xspline平滑折线图中保留指定段的原始数据形态？

Hey there! 我懂你的需求啦——你用geom_xspline绘制混凝土的应力应变曲线时，希望其中某一段保持原始的平坦状态，不被平滑算法“扭曲”，对吧？其实核心思路很简单：把数据拆成需要平滑的部分和要保留平坦的部分，分别用不同的图层绘制就可以实现啦。

第一步：标记需要保留平坦的数据段 #

首先我们先给原始数据加个标记，区分开哪些点需要平滑，哪些点要保留平坦。这里我假设你要保留的是stress=0且strain≥0的平坦段，你可以根据自己的实际需求修改判断条件：

# 给数据添加分段标记
material$segment <- ifelse(material$stress == 0 & material$strain >= 0, "flat", "smooth")

第二步：修改绘图代码，分层绘制 #

接下来我们调整原有的ggplot代码，分别绘制平滑段和平坦段：

library(ggplot2)
library(ggalt)

# 先标记数据段（如果已经执行过上面的代码可以跳过这行）
material$segment <- ifelse(material$stress == 0 & material$strain >= 0, "flat", "smooth")

plot <- ggplot(material) +
  theme_void() +
  scale_color_hue() +
  # 1. 绘制需要平滑的部分，继续用geom_xspline
  geom_xspline(data = subset(material, segment == "smooth"),
               aes(x = strain, y = stress, colour = type, group = type),
               size = 0.7, spline_shape = 0.5) +
  # 2. 绘制需要保留平坦的部分，用geom_line确保线段平直
  geom_line(data = subset(material, segment == "flat"),
            aes(x = strain, y = stress, colour = type, group = type),
            size = 0.7) + # 保持和xspline相同的线宽，视觉统一
  labs(x = "Strain (in/in)", y = "Stress (ksi)", color = element_blank()) +
  theme(legend.position = "bottom",
        legend.box.background = element_rect(colour = "black", size = 0.5),
        axis.title.y = element_text(margin = margin(0,25,0,0), size=12, colour="black", angle = 90),
        axis.title.x = element_text(margin = margin(20,0,20,0),size=12, colour="black"),
        axis.text.y = element_blank(),
        axis.text.x = element_blank(),
        legend.text=element_text(size=11, margin = margin(0,2,0,0))) +
  scale_y_continuous(trans = "reverse") +
  scale_x_continuous(trans = "reverse") +
  geom_vline(aes(xintercept = 0), size = 0.3) +
  geom_hline(aes(yintercept = 0), size = 0.3)

关键说明 #

• 灵活调整分段条件：如果你的目标平坦段不是stress=0的部分，只需要修改ifelse()里的判断逻辑就行——比如用strain的范围（strain >= -0.001 & strain <= 0）、特定的组别（type == "Standard 5 ksi Concrete"）来筛选，完全根据你的需求定制。
• 视觉一致性：把geom_line的size参数设置和geom_xspline一致，确保两段线条的粗细统一，不会显得突兀。
• 图层顺序：先画平滑段再画平坦段，这样平坦段会覆盖在平滑段之上（如果有重叠的话），保证平坦段的样式优先显示。

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