服务热线
178 0020 3020
>library("ggplot2")
>R2_1_1<-
+read.csv(file.choose("F:R语言学习/R2_1_1"))
>ggplot(R2_1_1,aes(x=A,y=B,color=SIZE))+geom_point(shape=1,size=2)+xlab("A gene expression")+ylab("B gene expression")+xlim(-2,3)+ylim(-1,3)+ggtitle("R2-16")
>library("ggplot2")
>R2_1_2<-
+read.csv(file.choose("F:R语言学习/R2_1_2"))
>ggplot(R2_1_2,aes(x=Time,y=value,color=SIZE,shape=SIZE))+geom_line(color="black")+geom_point(size=2)+xlab("Time")+ylab("Value")+ggtitle(R2-16)
附件