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

在ggplot2中，为线型添加辅助图例可以帮助读者更好地理解图表中的不同线条代表的含义。下面是一个示例代码，展示如何为ggplot2中的线型添加辅助图例。

示例代码

# 加载必要的库
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)

解释

加载必要的库：首先，我们需要加载ggplot2库。
创建示例数据：我们创建了一个包含两个变量y1和y2的数据框，每个变量对应一条线。
创建ggplot对象：我们使用ggplot函数创建一个基本的图表对象，并使用geom_line函数添加两条线。每条线的线型通过linetype参数指定。
添加图例：我们使用scale_linetype_manual函数手动设置线型的值，并使用guide_legend函数添加图例。guide_legend函数的title参数用于设置图例的标题。
添加标题和标签：我们使用labs函数添加图表的标题和轴标签。
显示图表：最后，我们使用print函数显示图表。