R中同一图中的两个折线图

# 创建数据集
x1 <- c(1, 2, 3, 4, 5)
y1 <- c(10, 15, 12, 18, 20)
x2 <- c(1, 2, 3, 4, 5)
y2 <- c(5, 8, 6, 10, 12)

# 绘制第一个折线图
plot(x1, y1, type = "l", xlim = c(1, 5), ylim = c(0, 25), xlab = "X", ylab = "Y", main = "Two Line Plots")
lines(x2, y2, col = "red", lty = 2)  # 添加第二个折线图
legend("topright", legend = c("Line 1", "Line 2"), col = c("black", "red"), lty = c(1, 2))  # 添加图例

library(ggplot2)

# 创建数据集
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y1 = c(10, 15, 12, 18, 20),
  y2 = c(5, 8, 6, 10, 12),
  group = c("Line 1", "Line 2")
)

# 创建绘图对象并添加折线图
ggplot(data, aes(x = x, y = y1, color = group)) +
  geom_line() +
  geom_line(aes(y = y2), linetype = "dashed") +
  labs(title = "Two Line Plots", x = "X", y = "Y")