服务热线
178 0020 3020
在R2-1-1.csv以及R2-1-2.csv所在文件夹建立new project
data1<- read.table("R2-1-1.csv",header = T,sep = ",")
library("ggplot2")
ggplot(data1,aes(x=A,y=B,color=SIZE))+geom_point(shape=1)+ggtitle("R2-12")+xlab("A gene expression")+ylab("B gene expression")+scale_x_continuous(limits = c(-2,3))+scale_y_continuous(limits = c(-1,3))
data2<-read.table("R2-1-2.csv",header = T,sep = ",")
ggplot(data2,aes(x=Time,y=value,color=SIZE,shape=SIZE))+geom_point(size=2)+geom_line(color="black")+ggtitle("R2-12")+xlab("Time")+ylab("Value")
附件