R2-29-CC-第一次作业-ggplot2画散点图/折线图

CISO 2017-11-07 15:48:10 阅读: 1011

散点图

> library(ggplot2)

> dat1 = read.csv(file.choose(),header = T)

> ggplot(dat1,aes(x=A,y=B,colour=SIZE))+geom_point(size = 2.2,shape = 19,alpha = 0.4)+ggtitle("R1-29 CC")+labs(x="A gene expression", y="B gene expression")+theme(axis.title.x = element_text(size = 15, face = "bold"),axis.title.y = element_text(size = 15, face = "bold"),title = element_text(face = "bold"),legend.title = element_text(face = "bold"),legend.text = element_text(face = "bold"))+xlim(xmin=-2,xmax=3)+ylim(ymin=-1,ymax=3)

2.散点图

> library(ggplot2)

> dat2 = read.csv(file.choose(),header = T)

> ggplot(dat2,aes(x=Time,y=value,colour=SIZE,shape=SIZE))+geom_line(colour="black",size = 0.7)+geom_point(size = 3)+ggtitle("R1-29 CC")+theme(axis.title.x = element_text(size = 15, face = "bold"),axis.title.y = element_text(size = 15, face = "bold"),title = element_text(face = "bold"),legend.title = element_text(face = "bold"),legend.text = element_text(face = "bold"))