生活随笔
收集整理的這篇文章主要介紹了
R 散点图，添加标签
小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
R 散點(diǎn)圖繪制
數(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 散点图，添加标签的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。
