服务热线
178 0020 3020
library(ggplot2)
data<- read.csv(file.choose())
ggplot(data,aes(x=A,y=B,color=SIZE))+geom_point(shape=2)+xlab("A gene expression")+ylab("B gene expression")+labs(title="R2-03")+xlim(-2,3)+ylim(-1,3)
data<- read.csv(file.choose())
ggplot(data,aes(x=Time,y=value,group=SIZE))+geom_line(aes(shape=SIZE))+geom_point(size=3,aes(shape=SIZE,colour=SIZE))+xlab("Time")+ylab("Value")+labs(title="R2-03")
附件