|||
准备的数据:
第一列是时间,第二列是样本,第三列是具体数值。横轴标为时间,纵坐标为具体数值,图中不同颜色展示不同样本。
具体的代码:
library(ggplot2)
png("./xyz.png")(保存成png)
ups<-read.delim("xyz.csv")(读取数据)
ups$date <- factor(ups\$date,levels(ups$date)[c(4,1,3,2)])(横坐标调整)
p<-ggplot(data=ups,aes(x=date,y=value,group=sample)) + geom_line(aes(colour=sample)) + geom_point(size=6,aes(shape=sample,colour=sample)) + xlab("")+ylab("Odd Ratio")
dev.off()
最终的图形:
ggplot2默认支持6个样本的画图,如果超出,需要用scale_shape_manual来进行调整,例如
library(ggplot2)
png("./xyz.png")(保存成png)
ups<-read.delim("xyz.csv")(读取数据)
ups\$date <- factor(ups\$date,levels(ups$date)[c(4,1,3,2)])(横坐标调整)
p<-ggplot(data=ups,aes(x=date,y=value,group=sample)) + geom_line(aes(colour=sample)) + scale_shape_manual(values=c(0,1,2,3,4,5,6,7,8,9))+geom_point(size=6,aes(shape=sample,colour=sample)) + xlab("")+ylab("Odd Ratio")
dev.off()
图如下:
参考资料:http://rstudio-pubs-static.s3.amazonaws.com/796_a9237a230236427b8e71aeb72810cf4d.html
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-1 09:27
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社