添加两个条件映射，出来两个图例，能不能删掉一个

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如图中所示，在图像右侧出来两个图例，p <- ggplot(data=jsh,aes(x=site,y=cpue,group=sea))+
  geom_point(size=3,aes(col=sea))+
  geom_line(size=0.8,aes(col=sea,linetype=sea))+
  xlab("样点")+ylab("物种数量")+
  scale_y_continuous(breaks=seq(0,3000,500))+mytheme2+
  theme(legend.title = element_text(colour="white"))+
  scale_colour_manual("季节",breaks=c("春季","夏季","秋季","冬季"),
                      values=c("red","black","green","blue"),
                      labels=c("春季","夏季","秋季","冬季"))+
  mytheme1
这是我的代码，想问一下，能不能只显示上面的图例让他局中间，下面的图例不让他显示呢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

比较简单粗暴的方式是：
... +   geom_line(size = 0.8, aes(col = sea, linetype = sea), show.legend = FALSE) + ...
比较美观的方式是：
... + scale_linetype_manual("季节", breaks = c("春季", "夏季", "秋季", "冬季"), values = c("solid", "dotted", "longdash", "dashed"), labels = c("春季", "夏季", "秋季", "冬季"))

cheetahfly 发表于 2018-2-1 09:09
比较简单粗暴的方式是：
... +   geom_line(size = 0.8, aes(col = sea, linetype = sea), show.legend =  ...

非常感谢