如何在R语言中绘制分组数值范围折线图（解决geom_line失败问题）

步骤1：加载工具包与数据预处理 #

首先加载tidyverse（包含数据处理的dplyr和绘图的ggplot2），然后将原始的Class数值替换为对应的分组名称A-E：

library(tidyverse)

# 读取原始数据
Dat <- read.table(text=" Class Value
    0   8
    1   10
    0   9
    2   12
    2   13
    1   10
    3   15
    2   12
    3   12
    4   17
    4   19
    1   13
    2   12
    4   10
", header=TRUE)

# 将Class替换为分组名称A-E，并转为因子保证顺序
Dat$Group <- factor(Dat$Class, levels = 0:4, labels = c("A", "B", "C", "D", "E"))

步骤2：绘制分组数值范围折线图 #

你之前用geom_line失败的核心原因是未指定分组连线的依据——默认情况下ggplot会把X轴的分类变量当作分组，导致同一分组内的点无法连线。以下提供两种常见需求的实现：

需求1：仅展示每个分组的数值范围（最小值到最大值连线） #

先计算每个分组的最小/最大值，再整理数据格式后绘图：

# 计算各分组的Value范围
range_data <- Dat %>%
  group_by(Group) %>%
  summarise(min_val = min(Value), max_val = max(Value)) %>%
  pivot_longer(cols = c(min_val, max_val), names_to = "range_type", values_to = "Value")

# 绘制范围折线图
ggplot(range_data, aes(x = Group, y = Value, group = Group)) +
  geom_line(color = "#2E86AB", size = 1.2) +  # 连线
  geom_point(color = "#D81E5B", size = 2.5) + # 标记最值点
  labs(x = "分组", y = "Value数值", title = "各分组Value数值范围") +
  theme_bw()

需求2：展示每个分组内所有Value的连线（按数值排序） #

如果需要呈现分组内所有数据点的分布连线，先对每个分组的Value排序，再指定group=Group实现连线：

# 对每个分组的Value从小到大排序
sorted_data <- Dat %>%
  group_by(Group) %>%
  arrange(Value) %>%
  ungroup()

# 绘制全数据点折线图
ggplot(sorted_data, aes(x = Group, y = Value, group = Group)) +
  geom_line(color = "#2E86AB", size = 1) +
  geom_point(color = "#D81E5B", size = 2) +
  labs(x = "分组", y = "Value数值", title = "各分组Value数值分布折线图") +
  theme_bw()

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