如何将来自不同数据集的绘图图层合并到一个绘图中-ggplot2?

我有三个数据集,它们是三个杰出的鸟类组合,我正尝试将测试结果合并到一个图中。每个人看起来像这样:

示例:

# netstat -plant | grep httpd
tcp        0      0 :::80                   :::*                    LISTEN      98/httpd
tcp        0      0 :::443                  :::*                    LISTEN      98/httpd

我需要的结果是这样的:

plot_merged

我可以这样做:

library(ggplot2)
beta1<-c(0.714286,0.625,0.72973,0.5625,0.733333,1,0.655172,0.92,0.769231,0.586207,0.724138,0.846154,0.833333,0.76,1)
group<-rep(c("q0","q1","q2"),each = 5)

beta2<-c(1.714286,1.625,1.72973,1.5625,1.733333,1.655172,1.92,1.769231,1.586217,1.724138,1.846154,1.833333,1.76,1)


dados1<-data.frame(beta1,group)
dados2<-data.frame(beta2,group)

p1<-ggplot(data=dados1,aes(x=group,y=beta1)) +
  stat_summary(fun.y=mean,geom="line",aes(group=1))  + 
  stat_summary(fun.y=mean,geom="point")+ylim(0,2)

p2<-ggplot(data=dados2,y=beta2)) +
  stat_summary(fun.y=mean,2)

但仍然不够,因为无法绘制线条...

capt_feng 回答:如何将来自不同数据集的绘图图层合并到一个绘图中-ggplot2?

因此,我认为这大致可以满足您的需求。我们只将beta1beta2合并为1 data.frame并作图:

dados1 <-data.frame(beta = beta1,group,id = "beta1")
dados2 <-data.frame(beta = beta2,id = "beta2")

df <- rbind(dados1,dados2)

ggplot(df,aes(group,beta,colour = id,group = id)) +
  stat_summary(fun.y=mean,geom="line")  + 
  stat_summary(fun.y=mean,geom="point") + 
  ylim(0,2)

enter image description here

,

此外,我还解决了我的另一个问题:“如果要使用箱线图进行同样的操作,我该怎么做?”

我尝试了这个: 1.Step-通过teunbrand(上面的答案)。

dados1 <-data.frame(beta = beta1,id = "beta1") 
dados2 <-data.frame(beta = beta2,id = "beta2")

 df <- rbind(dados1,dados2)

2.step:

ggplot(df,facet_grid= id))+ geom_boxplot()

Plot

谢谢你们!

本文链接:https://www.f2er.com/3155238.html

大家都在问