传奇[ggplot2]中geom_hline的颜色不正确

Question

我已经环顾四周但我似乎无法找到解决方案。我在ggplot2中使用了geom_point和geom_hline，并且两者都获得了令人满意的传说。但是，我在图中有一条黑线和一条蓝线，但在图例中它们都是黑色的 - 如何在图例中将其更正为正确的颜色？

mcgc <- ggplot(sam, aes(x = Person,y = mm, colour = X)) +
                  geom_point(size = 0.75) +
                  scale_colour_gradient2(high="red", mid="green", limits=c(0,1), guide = "colourbar") +
                  geom_hline(aes(yintercept = mad, linetype = "mad"), colour = "blue", size=0.75, show_guide = TRUE) +
                  geom_hline(aes(yintercept = mmad, linetype = "mmad"), colour = "black", size=0.75, show_guide = TRUE)  +
                  facet_wrap(~ Plan, scales = "free", ncol = 4) +
                  scale_linetype_manual(name = "Plan of Health Care", values = c("mad" = 1, "mmad" = 1),guide = "legend")

我确定我在这里写了一些东西......只是不确定在哪里（我是ggplot的新手）

数据：

Plan  Person X       mm  mad mmad
1  1 95 0.323000 0.400303 0.12
1  2 275 0.341818 0.400303 0.12
1  3  2 0.618000 0.400303 0.12
1  4 75 0.320000 0.400303 0.12
1  5 13 0.399000 0.400303 0.12
1  6 20 0.400000 0.400303 0.12
2  1 219 0.393000 0.353350 0.45
2  2 50 0.060000 0.353350 0.45
2  3 213 0.390000 0.353350 0.45
2  4 204 0.496100 0.353350 0.45
2  5 19 0.393000 0.353350 0.45
2  6 201 0.388000 0.353350 0.45

计划最多可达40，但我在这里只包含了一小段数据...

更新：对于可能正在帮助的人 - 我绘制数据的代码是错误的。我已经更新了这个。

Answer 1

由于您已经使用了颜色作为点，因此您无法使用scale_color_..行来显示图例中的颜色。解决方法是使用带有参数guides()的函数override.aes=来添加图例的颜色。将此行添加到现有代码中。

  + guides(linetype=guide_legend(override.aes=list(colour = c("blue","black"))))