我正在同一图上绘制条形图和折线/点图,并且试图具有两个图例,一个用于点,一个用于条。
但是,我最终得到3个图例(而不是2个图例),并且这些条的图例中都有点。你能帮助我吗?这是MWE
library("ggplot2")
df2 <- data.frame(Height=rep(c("low", "high"), each=3),
Month=rep(c("Jan", "Feb", "March"),2),
Trial =c(7, 4, 10, 2, 4, 12),
Success = c(2, 2, 7, 1, 3, 8))
ggplot(data=df2, aes(x=Month, y= Success, fill= Height)) +
ggtitle("Title") +
geom_bar(stat="identity", position=position_dodge()) +
geom_line(aes(x=Month, y=Success/Trial*max(Success), group = Height, linetype = Height, colour = Height) , size = 3, alpha = 0.7) +
geom_point(aes(x=Month, y=Success/Trial*max(Success), colour = Height), size = 11) +
geom_text(aes(label=round(Success/Trial,2), x=Month, y=Success/Trial*max(Success)), color="white", size=3.5, fontface = "bold") +
scale_y_continuous(sec.axis = sec_axis(~. *1/max(df2$Success) , name="Proporion of success")) +
labs(x = "Month", y="#Success", fill = "Number of Success", colour = "Proportion of success") +
scale_colour_manual(values=c('#909999','#E69000'))+
scale_fill_manual(values=c('#099999','#069F00'))
我尝试使用其他版本,guides(colour = FALSE, group = FALSE, fill = FALSE)
但没有成功。我想删除“高度”图例,并删除“成功数”图例中的大黑点。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句