ggplot2不同数据集合并

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如下做用ggplot2做p1,p2,不同的数据集，问如何将两幅图合并到一张图中，并且将legend合并。

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(test_data56, id="x")
p0 <- ggplot(data=da1 , aes(x=x,
   y=value,group=variable,linetype=variable,color=variable, shape=variable)) + geom_line()


x1<- c(0.81,0.81)
y1<-c(0.5,0.8)
da2 <- data.frame(x1,y1)
p1<-ggplot()+geom_point(data=da2,aes(x=x1,y=y1, colour = c("blue","red")),size=c(3,3))

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：ggplot2 gplot plot GPL 数据集 legend 如何

是p0和p1......

test_data56是什么，da？

ggplot()+geom_line(data=da1,aes(x=x,y=value,group=variable,linetype=variable,color=variable, shape=variable))+geom_point(data=da2,aes(x=.81,y=c(.5,.8),color=as.factor(y1)),size=3)

图例再想办法 改吧

1. ggplot()+
   
2.   geom_line(data=da1,aes(x=x,y=value,group=variable,linetype=variable,color=variable, shape=variable))+
   
3.   geom_point(data=da2,aes(x=.81,y=c(.5,.8),color=as.factor(y1)),size=3)+
   
4.   scale_color_manual(values = c( "red", "blue", "darkgreen",  "orange"), labels = c("four", "six", "eight","55"))

复制代码

johnmy 发表于 2016-9-25 16:49
test_data56是什么，da？

是da,不好意思写错了。。。。。

johnmy 发表于 2016-9-25 18:57

p1 <- ggplot(data=da1,aes(x=x,y=value,group=variable,linetype=variable,color=variable, shape=variable))+geom_point()+geom_line()
p1+ggplot()+geom_point(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"))

谢谢您的回答，对我的帮助很大，我略作修改，想先标点，再连线。p1是可以生成的啊，为何后一句报错了呢？