我有三个数据集,它们是三个杰出的鸟类组合,我正尝试将测试结果合并到一个图中。每个人看起来像这样:
示例:
# netstat -plant | grep httpd
tcp 0 0 :::80 :::* LISTEN 98/httpd
tcp 0 0 :::443 :::* LISTEN 98/httpd
我需要的结果是这样的:
我可以这样做:
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)
但仍然不够,因为无法绘制线条...