R 散點圖繪制

數(shù)據(jù)情況

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)

總結(jié)

以上是生活随笔為你收集整理的R 散点图，添加标签的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。