如何用R按number列分段绘制多条独立折线图

首先需要给你的数据集添加分组标识，因为原数据没有区分三个分段的标记，我们可以通过识别number=0的位置来给每个分段分配组别：

# 找到所有number等于0的行索引
zero_indices <- which(m$number == 0)
# 生成分组向量，每个分段对应一个组
group <- rep(1:length(zero_indices), diff(c(zero_indices, nrow(m)+1)))
# 将分组列添加到数据框
m$group <- group

处理后的数据框m会新增group列，值为1、2、3，分别对应你需要的三个分段。

方法一：使用R基础绘图系统 #

可以通过循环逐个绘制每个分段的折线图，也可以设置多图布局在同一张画布展示：

# 设置3行1列的多图布局（可选，若要单独弹出窗口可去掉此行）
par(mfrow = c(3, 1))

# 循环绘制每个分组的折线图
for (g in unique(m$group)) {
  # 筛选当前分组的数据
  seg_data <- m[m$group == g, ]
  # 绘制折线图
  plot(seg_data$number, seg_data$val, type = "l",
       main = paste("第", g, "段数据：number从", min(seg_data$number), "到", max(seg_data$number)),
       xlab = "number", ylab = "val",
       col = "#2E86AB", lwd = 2)
  # 添加数据点标记（可选）
  points(seg_data$number, seg_data$val, pch = 16, col = "#F24C4E")
}

# 恢复默认的单图布局
par(mfrow = c(1, 1))

方法二：使用ggplot2包（推荐） #

ggplot2的语法更灵活，支持分面展示或生成独立的图形对象：

方式1：分面展示（一张画布包含三个子图） #

# 若未安装ggplot2先执行安装：install.packages("ggplot2")
library(ggplot2)

ggplot(m, aes(x = number, y = val)) +
  geom_line(color = "#2E86AB", linewidth = 1) +
  geom_point(color = "#F24C4E", size = 2) +
  # 按group分面，1列排列
  facet_wrap(~group, ncol = 1) +
  labs(x = "number", y = "val") +
  ggtitle("各分段数据折线图") +
  theme_bw()

方式2：生成独立的三张图 #

如果需要完全独立的图形对象，可以用purrr包批量生成：

# 若未安装purrr先执行安装：install.packages("purrr")
library(purrr)

# 批量生成每个分组的折线图
seg_plots <- map(unique(m$group), function(g) {
  seg_data <- m[m$group == g, ]
  ggplot(seg_data, aes(x = number, y = val)) +
    geom_line(color = "#2E86AB", linewidth = 1) +
    geom_point(color = "#F24C4E", size = 2) +
    labs(x = "number", y = "val") +
    ggtitle(paste("第", g, "段数据：number", min(seg_data$number), "→", max(seg_data$number))) +
    theme_bw()
})

# 查看第一张图
seg_plots[[1]]
# 查看第二张图
seg_plots[[2]]
# 查看第三张图
seg_plots[[3]]

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