服务热线
178 0020 3020
1.
> library(ggplot2)
> R1<-read.csv("/Users/LUCY/Desktop/科研狗R语言第二期/2-2/data/R2-1-1.csv")
> ggplot(R1, aes(x=A,y=B,color=SIZE)) + geom_point(size=3,shape=21)+labs(x="A gene expression",y="B gene expression",title="R2-14")
2.
> R2<-read.csv("/Users/LUCY/Desktop/科研狗R语言第二期/2-2/data/R2-1-2.csv")
> ggplot(R2, aes(Time,value,color =SIZE,shape = SIZE))+geom_line(color = "black")+geom_point(size=4)+ ggtitle("R2-14")
附件