散点图

data<-read.table("all.corr",header=TRUE,row.names=1)
library(ggplot2)
png("test.png")
p<-ggplot(data,aes(x=data$R7111062,y=data$R7111063))+geom_point()+labs(x="R7111062",y="R7111063",title = "R7111062vsR7111063")
theme<-theme(axis.title= element_text(size=20, family="myFont", color="black", face= "bold", vjust=0.5, hjust=0.5))+theme(axis.text.y= element_text(size=30, family="myFont", color="black",vjust=0.5, hjust=0.5))+theme(axis.text.x= element_text(size=30, family="myFont", color="black", vjust=0.5, hjust=0.5))+theme(title= element_text(size=35, family="myFont", color="black", face= "bold", vjust=0.5, hjust=0.5))
p+theme
dev.off()