服务热线
178 0020 3020
散点图
mydata<- read.csv("R2-1-1.csv")
library(ggplot2)
ggplot(mydata,aes(A,B))+geom_point(aes(color=SIZE),size=2,shape=1)+ggtitle("R2-33")+xlab("A gene expressiom")+ylab("B gene expressiom")+xlim(-2,2)+ylim(-1,3)
折线图
mydata2<- read.csv("R2-1-2.csv")
library(ggplot2)
ggplot(mydata2,aes(x=Time,y=value,color=SIZE,shape=SIZE))+geom_point()+geom_line(color="black")+ggtitle("R2-33")+ylab("Value")
附件