服务热线
178 0020 3020
> library(ggplot2)
> mydata <- read.csv("/Users/Hong/Desktop/data/data2/R2-1-1.csv",header=T)
> ggplot(mydata,aes(x=A,y=B,color=SIZE))+geom_point(shape=1)+xlab("A gene expression")+ylab("B gene expression")+ggtitle("R2-37")+scale_x_continuous(limits=c(- 2,3))+scale_y_continuous(limits=c(-1,3))
> library(ggplot2)
> mydata <- read.csv("/Users/Hong/Desktop/data/data2/R2-1-2.csv",header=T)
>ggplot(mydata,aes(x=Time,y=value,color=SIZE,shape=SIZE))+geom_point(size=3)+geom_line(color="black")+xlab("Time")+ylab("value")+ggtitle("R2-37")
附件