ggplot2画图，无法显示legend

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我用ggplot2画三条固定斜率和截距的直线，如下
library(ggplot2)
library(grid)

ggplot() +
  geom_abline(aes(color = "Num = 12", linetype = "Num = 12"), intercept = -0.0005669, slope = -0.1099574) +
  geom_abline(aes(color = "Num = 1", linetype = "Num = 1"), intercept = -0.0004009, slope = -0.0515904) +
  geom_abline(aes(color = "Num = 0", linetype = "Num = 0"), intercept = -0.0003858, slope = -0.0462843) +
  xlim(0.015, maxx) + ylim(-0.015, 0) +
  ylab("UE") + xlab("SS") +
  ggtitle("XXX") +
  theme(plot.title=element_text(face="bold", size=12, vjust=2),  
        axis.title.x=element_text(vjust=-1, size=12),
        axis.title.y=element_text(hjust=1, size=12, angle = 0),
        plot.margin=unit(c(1,1,1,1), "cm"))+
  scale_color_manual(name = "Number", values=c("Num = 12"="red", "Num = 1"="blue", "Num = 0"="black")) +
  scale_linetype_manual(name = "Number", values=c("Num = 12"=2, "Num = 1"=1, "Num = 0"=9))


查了一下ggplot2的资料，貌似用 scale_linetype_manual 和  scale_color_manual可以画出legend，但是我这个代码怎么都不出legend，请各位帮忙看看哪出问题了。多谢多谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：ggplot2 Legend gplot egen plot legend

又谷歌了一下搞定了。应该吧斜率和截距放到aes（）的括号里边，后边接上show_guide = TRUE：

ggplot() +
  geom_abline(aes(intercept = -0.0005669, slope = -0.1099574, color = "Num = 12", linetype = "Num = 12"), show_guide = TRUE) +
  geom_abline(aes(intercept = -0.0004009, slope = -0.0515904, color = "Num = 1", linetype = "Num = 1"), show_guide = TRUE) +
  geom_abline(aes(intercept = -0.0003858, slope = -0.0462843, color = "Num = 0", linetype = "Num = 0"), show_guide = TRUE) +
  xlim(0.015, maxx) + ylim(-0.015, 0) +
  ylab("UE") + xlab("SS") +
  ggtitle("XXX") +
  theme(plot.title=element_text(face="bold", size=12, vjust=2),  
        axis.title.x=element_text(vjust=-1, size=12),
        axis.title.y=element_text(hjust=1, size=12, angle = 0),
        plot.margin=unit(c(1,1,1,1), "cm"))+
  scale_color_manual(name = "Number", values=c("Num = 12"="red", "Num = 1"="blue", "Num = 0"="black")) +
  scale_linetype_manual(name = "Number", values=c("Num = 12"=2, "Num = 1"=1, "Num = 0"=9))

版主奖励个论坛币吧！穷死了

万分感谢，我遇到同样的问题，看了你的回答解决了。

不过现在 ggplot中 “show_guide = TRUE”，提示提示改为“show.legend=TRUE”

superyxo 发表于 2015-1-7 14:15
又谷歌了一下搞定了。应该吧斜率和截距放到aes（）的括号里边，后边接上show_guide = TRUE：

ggplot() + ...

看到迟了哈，下次可以选择提示我的