如何在R自动绘图中重命名线条标签？

# 导入必要的包
library(ggplot2)

# 创建示例数据
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y1 = c(1, 4, 9, 16, 25),
  y2 = c(1, 2, 3, 4, 5)
)

# 绘制折线图
plot <- ggplot(data, aes(x = x)) +
  geom_line(aes(y = y1, color = "线条1")) +
  geom_line(aes(y = y2, color = "线条2")) +
  labs(color = "线条名称")  # 重命名线条标签

# 显示图表
print(plot)