准备的数据：

第一列是时间，第二列是样本，第三列是具体数值。横轴标为时间，纵坐标为具体数值，图中不同颜色展示不同样本。

具体的代码：

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