ggplot2将两幅图的legend合并在一起。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

图如下，在legend中有连个条线和两个点，希望将绿色和橘色的点线都在legend中标出，蓝色与红色的点不变。
问如何修正。


下
代码如下：

library(gridExtra);
require(reshape);
require(ggplot2);

a <-c(0.61,0.57,0.78,1.36,0.85,0.53,0.45,0.19,0.08) #names
b <-c(0.23,0.26,0.55,0.56,0.36,0.23,0.18,0.06,0.04) #mean t0
x <-c(0.64,0.6,0.81,1.4,0.89,0.55,0.48,0.22,0.09) #mean t1

da <- data.frame(a,b,x)
da1 <- melt(da, id="x")

x1<- c(0.81,0.81)
y1<-c(0.5,0.8)
da2 <- data.frame(x1,y1)

ggplot()+
  geom_line(data=da1,aes(x=x,y=value,group=variable,linetype=variable,color=variable),show_guide = FALSE)+
  geom_point(data=da1,aes(x=x,y=value,group=variable,color=variable, shape=variable),show_guide = FALSE)+

  geom_point(data=da2,aes(x=.81,y=c(.5,.8),color=as.factor(y1)),size=3)+
  scale_color_manual(values = c( "red", "blue", "darkgreen",  "orange"), labels = c("four", "six", "eight","55")
                     )

扫码加我 拉你入群

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

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

分享0 收藏3 回帖

关键词：ggplot2 Legend gplot egen plot legend

是这样吗？

stormhz 发表于 2016-9-26 22:02
是这样吗？

非常完美，就是这样的。能否将代码给我参照一下，谢谢了~

stormhz 发表于 2016-9-26 22:02
是这样吗？

最好那个55的legend的底线也是虚线。我看有点点像虚线。

子衿1219 发表于 2016-9-27 10:15
最好那个55的legend的底线也是虚线。我看有点点像虚线。

不好意思，刚写错了，看着有点点像实线。

代码和图片都在附件里，已经改成虚线。

stormhz 发表于 2016-9-27 12:04
代码和图片都在附件里，已经改成虚线。

另，请问你在哪个界面写的code，我觉得很漂亮。颜色区分的很好看。

子衿1219 发表于 2016-9-27 14:56
另，请问你在哪个界面写的code，我觉得很漂亮。颜色区分的很好看。

R里有个knitr包，你可以了解一下，需要点LaTeX或者Markdown基础，可以直接在Rstudio里编译成包含代码和输出的pdf，markdown, html, word等格式的文件。写文章，做作业， ppt都可以在Rstudio里完成，可以不用word，不用复制粘贴。

stormhz 发表于 2016-9-27 15:05
R里有个knitr包，你可以了解一下，需要点LaTeX或者Markdown基础，可以直接在Rstudio里编译成包含代码和输 ...

万分感谢。我还有个小小的问题。希望你可以帮忙修正一下。我看到你给的code里，运用到我的实际问题里时，我是有6条线的，两个点。6条线的颜色需要指定3条蓝色，3条红色。两个点也是一蓝一红。我看你的code里面颜色我没办法自己指定呢。

子衿1219 发表于 2016-9-27 15:11
万分感谢。我还有个小小的问题。希望你可以帮忙修正一下。我看到你给的code里，运用到我的实际问题里时， ...

应该可以呀，你把数据和要求放在附件里，我看一下。