ggplot2画图

library(ggplot2)

data <- read.table("C:/Users/Desktop/merged_df.tsv",header=T,sep="\t",as.is=T)

p <- ggplot(data) + geom_point(aes(x=unif_ref_value, y=unif_rust_value, color=panel, size=dup_ratio), alpha=0.5) +
  xlab("v1.3.0") + ylab("v1.4.0") +
  scale_x_continuous(breaks=seq(from=0.8,to=1,by=0.05), labels=seq(from=0.8,to=1,by=0.05),limit=c(0.8,1)) +
  scale_y_continuous(breaks=seq(from=0.8,to=1,by=0.05), labels=seq(from=0.8,to=1,by=0.05),limit=c(0.8,1)) +
  theme_bw() +
  theme(
    axis.text=element_text(size=12),
    axis.title=element_text(size=14),
    legend.text=element_text(size=12),
    legend.title=element_text(size=14)
  )
p