使用ggforce::bspline时，如何拆分样条并中途修改曲线颜色？

嘿，这个问题我之前也碰到过——用ggforce::bspline做平滑曲线时，想在指定位置切换颜色确实有点绕，但其实有几个实用的方法可以搞定，结合你提到的日期（1990年7月1日）和坐标点需求，我给你拆解下：

方法一：用after_stat直接基于坐标/日期判断颜色 #

这是最简洁的方式，利用ggplot的after_stat()函数，在样条拟合完成后，对每个点的坐标或日期进行判断，自动分配颜色：

基于坐标的实现 #

假设你的三个原始点坐标是(10,6)（1990年）、(17,4)（1991年）、(24,5)（1992年），要在x=12的位置切换颜色：

library(ggplot2)
library(ggforce)

# 准备原始数据
df <- data.frame(
  x = c(10, 17, 24),
  y = c(6, 4, 5),
  year = c(1990, 1991, 1992)
)

# 定义颜色分割的x坐标
split_x <- 12

ggplot(df, aes(x, y)) +
  # 拟合样条曲线，用after_stat判断x值分配颜色
  stat_bspline(
    geom = "line",
    aes(color = after_stat(x <= split_x)),
    size = 2
  ) +
  # 自定义颜色：红色（x<=12）、蓝色（x>12）
  scale_color_manual(
    values = c("TRUE" = "red", "FALSE" = "blue"),
    guide = "none" # 不需要图例就去掉
  ) +
  # 加上原始数据点
  geom_point(size = 4, color = "black") +
  theme_minimal()

基于日期的更精准实现 #

既然你提到了具体日期（1990年7月1日当选），直接用日期轴会更贴合实际逻辑，避免坐标转换的误差：

# 给原始数据添加日期列
df$date <- as.Date(c("1990-01-01", "1991-01-01", "1992-01-01"))
# 定义颜色分割的日期
split_date <- as.Date("1990-07-01")

ggplot(df, aes(x = as.numeric(date), y = y)) +
  stat_bspline(
    geom = "line",
    aes(color = after_stat(x <= as.numeric(split_date))),
    size = 2
  ) +
  scale_color_manual(values = c("red", "blue"), guide = "none") +
  # 把x轴转换为日期格式
  scale_x_date(date_labels = "%Y", breaks = df$date) +
  geom_point(size = 4, color = "black") +
  theme_minimal()

方法二：提取样条点后手动分割（更精准） #

如果需要绝对精准地在样条曲线上对应1990年7月1日的点切换颜色，可以先提取拟合后的所有样条点，找到最接近目标日期的位置，再分成两段绘制：

# 先拟合样条并提取所有点
spline_plot <- ggplot(df, aes(x = as.numeric(date), y = y)) + stat_bspline()
spline_points <- ggplot_build(spline_plot)$data[[1]]

# 找到最接近分割日期的点索引
split_idx <- which.min(abs(spline_points$x - as.numeric(split_date)))

# 分割成两段曲线
spline_red <- spline_points[1:split_idx, ]
spline_blue <- spline_points[(split_idx + 1):nrow(spline_points), ]

# 分别绘制两段
ggplot() +
  geom_line(data = spline_red, aes(x, y), color = "red", size = 2) +
  geom_line(data = spline_blue, aes(x, y), color = "blue", size = 2) +
  geom_point(data = df, aes(x = as.numeric(date), y = y), size = 4, color = "black") +
  scale_x_date(date_labels = "%Y", breaks = df$date) +
  theme_minimal()

这种方法适合对分割位置要求极高的场景，能确保颜色切换点正好落在样条曲线上对应目标日期的位置。

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