R语言ggplot绘图：移除曲线零点后的数据点与线条需求问询

要实现曲线在变量首次变为零后停止显示（不显示零值点及之后的所有内容），我们需要先对原始数据按分组筛选有效范围，再基于筛选后的数据做样条插值和绘图。以下是完整步骤：

步骤1：加载依赖包 #

确保你已经安装并加载了dplyr和ggplot2：

library(dplyr)
library(ggplot2)

步骤2：筛选原始数据（保留首次零值前的非零数据） #

我们需要对每个variables分组，只保留第一次出现value=0之前的非零、非NA数据：

filtered_n0 <- ydot.n0 %>%
  group_by(variables) %>%
  # 标记每个分组中第一个value为0的行位置
  mutate(first_zero = which(value == 0)[1]) %>%
  # 筛选逻辑：
  # - 如果分组中没有零值，保留所有非NA且非零的行
  # - 如果有零值，保留到第一个零值之前的非NA且非零的行
  filter(
    ifelse(
      is.na(first_zero),
      !is.na(value) & value != 0,
      row_number() < first_zero & !is.na(value) & value != 0
    )
  ) %>%
  ungroup()

步骤3：基于筛选后的数据生成样条插值 #

用筛选后的有效数据做样条插值，避免曲线延伸到零值区域：

filtered_dplyr <- filtered_n0 %>%
  group_by(variables) %>%
  do(as.data.frame(spline(x = .[["variable"]], y = .[["value"]], n = nrow(.)*10))) %>%
  ungroup()

步骤4：绘制图形 #

现在用筛选后的数据点和样条曲线绘图，就能实现零值后曲线停止的效果：

ggplot(filtered_n0, aes(variable, value)) +
  geom_point(aes(colour = factor(variables))) +
  geom_line(data = filtered_dplyr, aes(x = x, y = y, colour = factor(variables)))

可选优化：将x轴转换为连续对数刻度 #

原始数据的variable列是字符型（如"10^2"），转换为数值型并使用对数刻度会让图形更直观：

# 转换variable为数值型
filtered_n0 <- filtered_n0 %>%
  mutate(variable_num = as.numeric(sub("10\\^", "", variable)) %>% {10^.})

# 重新生成样条插值
filtered_dplyr <- filtered_n0 %>%
  group_by(variables) %>%
  do(as.data.frame(spline(x = .[["variable_num"]], y = .[["value"]], n = nrow(.)*10))) %>%
  ungroup()

# 带对数刻度的绘图
ggplot(filtered_n0, aes(variable_num, value)) +
  geom_point(aes(colour = factor(variables))) +
  geom_line(data = filtered_dplyr, aes(x = x, y = y, colour = factor(variables))) +
  scale_x_log10(labels = scales::label_number()) # 保留友好的刻度标签

这样处理后，每个分组的曲线都会在首次出现零值的位置停止，不会显示零值点及之后的内容，完全符合你的需求。

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