为ggplot中的线型添加辅助图例

# 加载必要的库
library(ggplot2)

# 创建示例数据
data <- data.frame(
  x = 1:10,
  y1 = c(1, 3, 2, 5, 4, 6, 7, 8, 9, 10),
  y2 = c(2, 4, 3, 6, 5, 7, 8, 9, 10, 11)
)

# 创建ggplot对象
p <- ggplot(data, aes(x = x)) +
  geom_line(aes(y = y1, linetype = "Line 1"), color = "blue") +
  geom_line(aes(y = y2, linetype = "Line 2"), color = "red")

# 添加图例
p <- p + scale_linetype_manual(
  values = c("Line 1" = "solid", "Line 2" = "dashed"),
  guide = guide_legend(title = "Line Types")
)

# 添加标题和标签
p <- p + labs(title = "Example of Adding Auxiliary Legends to Line Types in ggplot2",
              x = "X Axis", y = "Y Axis")

# 显示图表
print(p)