服务热线
178 0020 3020
1.1散点图
library(ggplot2)
date<-read.csv(file.choose())
ggplot(date,aes(x=A,y=B,color=SIZE))+geom_point(shape=2,size=2)+xlab("A gene expression")+ylab("B gene expression")+xlim(-2,3)+ylim(1,3)+labs(title="R2-06-dean")
1.2 折线图
library(ggplot2)
date<-read.csv(file.choose())
ggplot(date,aes(x=Time,y=value,group=SIZE))+geom_line(aes(shape=SIZE))+geom_point(size=4,aes(shape=SIZE,colour="green"))+xlab("Time")+ylab("Value")+xlim(0,3)+ylim(1,4)+labs(title="R2-06-dean")
附件