r - 如何将图例添加到 ggplot2 中的多个 hlines？

Question

任何人都可以帮我完成一些任务吗？
我必须在geom_hline()情节中添加 3。
其中一个是显示森林中建议的三人行间距的线，其他是可接受的间距变化上限和下限。
为此，我正在使用geom_hline()，但我很难以正确的方式展示传说。
此外，这两个限制具有相同的线型（虚线），为红色，另一个为蓝色实线。
因此，如何为这三个 hlines 添加图例？
请记住，我需要在图例中包含两个元素：红色虚线作为限制的简要描述和蓝色实线作为推荐间距的简要描述。
非常感谢，伙计们！

Answer 1

要在 中显示图例ggplot，您应该创建一个美学映射。最简单的方法是拥有一个单独的小数据框，其中包含您要在hlines 上显示的信息。

您没有提供任何示例数据，所以我在这里做了一些，以便这是一个完全可重现的示例：

library(ggplot2)

set.seed(69)
main_data <- data.frame(x = rnorm(200, 10), y = rnorm(200, 10))
hline_data <- data.frame(y = c(8, 10, 12), type = factor(c(2, 1, 2)), 
                         stringsAsFactors = FALSE)

ggplot(main_data, aes(x,y)) + 
  geom_point() + 
  geom_hline(data = hline_data, 
             aes(yintercept = y, linetype = type, colour = type)) +
  scale_colour_manual(values = c("blue", "red"), 
                      labels = c("Recommended Spacing", "Limits of spacing"),
                      name = "Key") +
  scale_linetype_manual(values = 1:2, 
                        labels = c("Recommended Spacing", "Limits of spacing"),
                        name = "Key")

^{由reprex 包（v0.3.0）于 2020-05-19 创建}