R 散点图绘制
数据情况
a=read.table("C:\\Users\\XXX\\Desktop\\input.txt",head=T)
all=cor.test(a$log2FoldChange.US.10059104.D.US.10059068.D.,a$log2FoldChange.US.10059104.H.US.10059068.H.,method="pearson")
b=subset(a, Overlap != "Uniq")
overlap=cor.test(b$log2FoldChange.US.10059104.D.US.10059068.D.,b$log2FoldChange.US.10059104.H.US.10059068.H.,method="pearson")
p<-ggplot(a, aes(x=log2FoldChange.US.10059104.D.US.10059068.D., y=log2FoldChange.US.10059104.H.US.10059068.H.,color=Overlap)) + geom_point() +theme_bw() +xlab("log2FoldChange(US-10059104-D/US-10059068-D)")+ylab("Log2Fold(US-10059104-H/US-10059068-H)")+ scale_color_manual(values=c("blue","gray","red"))
p+ annotate("text",x=-10,y=14,label="pearson=0.946",color="black",size=4) +theme_bw()+ annotate("text",x=-8.3,y=12,label="pearson=0.975(overlap)",color="black",size=4)