This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 3.2.5
#设置工作目录
setwd("D:/RData/examples")
foo = read.table("AD-AS.txt",head=T,sep = "\t")
ggplot(foo, aes(xaxis, yaxis))+
  geom_point(aes(size = size),color="lightblue")+
  geom_text(aes(label=gene),size = 2, color = "red")+
  scale_y_continuous(limits=c(-1,5))+
  scale_size_area(max_size = 30)+
  theme(axis.text = element_text(size = 14),
        axis.ticks = element_line(colour = "black"),
        panel.grid = element_blank(),
        panel.background = element_rect(fill = "white",colour = "black"),
        legend.key = element_rect(fill = "white"),
        legend.position = "none",
        legend.title = element_blank())