基于ggplot绘制按factor分组着色的多变量折线图需求

没问题，我来帮你实现这个要求的折线图！咱们用ggplot2包来完成，首先得把你的宽格式数据转成长格式——这是ggplot处理多变量折线图的常规操作，之后就能精准控制每条折线的分组着色了。

第一步：数据转换（宽转长） #

你的原始数据里V1、V2、V3是单独的列，咱们需要把它们合并成一列记录数值，同时新增一列标记变量名称（V1/V2/V3），用tidyr包的pivot_longer函数就能轻松搞定：

# 先加载需要的工具包
library(ggplot2)
library(tidyr)

# 你的原始数据集
factor <- c("group1", "group2", "group2")
X <- c("A", "B", "C")
V1 <- c(1:3)
V2 <- c(7:9)
V3 <- c(13:15)
df <- data.frame(factor, X, V1, V2, V3)

# 将宽格式数据转换为长格式
df_long <- pivot_longer(df, cols = starts_with("V"), names_to = "variable", values_to = "value")

转换后的数据结构会变成这样（更适合ggplot处理）：

# A tibble: 9 × 4
  factor X     variable value
  <chr>  <chr> <chr>    <int>
1 group1 A     V1           1
2 group1 A     V2           7
3 group1 A     V3          13
4 group2 B     V1           2
5 group2 B     V2           8
6 group2 B     V3          14
7 group2 C     V1           3
8 group2 C     V2           9
9 group2 C     V3          15

第二步：绘制符合要求的折线图 #

现在用ggplot来绘图，核心是设置正确的映射关系：

• X轴绑定X列的取值（A、B、C）
• Y轴绑定转换后的value列数值
• 用group = variable区分三条折线（对应V1、V2、V3）
• 用color = factor给每个点/折线段按group1、group2着色

完整代码如下：

ggplot(df_long, aes(x = X, y = value, group = variable, color = factor)) +
  geom_line(linewidth = 1) +  # 绘制折线，设置线宽让线条更清晰
  geom_point(size = 3) +      # 添加数据点，方便查看每个具体数值
  scale_color_manual(values = c("group1" = "red", "group2" = "green")) +  # 指定分组颜色
  labs(
    x = "X取值",
    y = "数值",
    color = "分组",
    title = "按factor分组的V1/V2/V3折线图"
  ) +
  theme_minimal()  # 选用简洁清爽的主题样式

运行这段代码后，你会得到一张包含三条折线的图：每条折线对应V1、V2、V3变量，且折线的颜色会根据所属的factor分组（group1为红色，group2为绿色）区分，完全符合你的需求！

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