为ggplot R创建多线图的数据帧

library(tidyverse)

# 创建示例数据
data <- data.frame(
  x = c(1, 2, 3, 4, 5),  # x轴的值
  y1 = c(10, 15, 12, 8, 6),  # 第一条线的y轴值
  y2 = c(5, 8, 6, 10, 12),  # 第二条线的y轴值
  y3 = c(12, 10, 8, 6, 4)  # 第三条线的y轴值
)

# 将数据整理成长格式
data_long <- data %>%
  pivot_longer(cols = starts_with("y"), names_to = "line", values_to = "y")

# 绘制多线图
ggplot(data_long, aes(x = x, y = y, color = line)) +
  geom_line() +
  labs(title = "多线图示例", x = "x轴", y = "y轴") +
  theme_minimal()