라벨이 내 코드 플롯

-1

의 모든 점하지 : 나는 모든 점,하지만 레이블을 필요라벨이 내 코드 플롯

A<-read.delim("/Users/macbookair11/Downloads/file.txt",header = T) 
names(A) 
attach(A) 
P<--log10(fdr) 

plot(lfc,P,type="p", 
xlab="log2fc", 
ylab="-log10fdr", 
pch=16, 
xlim=c(-5,5) 
) 
abline(h =(-log10(0.01)), untf = FALSE, col="red") 
abline(v =(log2(2)), untf = FALSE, col="red") 
abline(v =-(log2(2)), untf = FALSE, col="red") 
text(lfc,P, labels=Transcript, cex=0.6, pos=4, col="red")

만 사람이 가지고 느릅 나무 Y> 2 (X < -1 또는 X> (1)) 올바른 방법으로 스크립트를 변경하려면 어떻게해야합니까? 감사합니다.

출처

2013-09-27 user2080209

스레드 http://stackoverflow.com/questions/7611169/intelligent-point-label-placement-in-r은 여러 가지 솔루션을 제공합니다. 어쩌면 하나 또는 그 중 몇 명이 당신 상황에 맞을까요? –

죄송합니다. 질문을 약간 잘못 읽은 다음 텍스트 (lfc [(lfc> 1 | lfc <(-1)) & P> 2), P [(lfc> 1 | lfc <(-1)) & P> 2), 레이블 = Transcript [(lfc> 1 | lfc <(-1)) & P> 2 ], cex = 0.6, pos = 4, col = "red"). 실제 데이터가 없으면이 값은 테스트되지 않습니다. –

사용할 수 없으므로 데이터를 사용하는 방법을 보여줄 수 없습니다. 이것은 t-test의 "outliers"에 대한 조건부 레이블링을 보여줍니다.

x <- rnorm(100) 
y<- rchisq(100,1) 
plot(x,y, xlim=c(-3.5,3.5)) 
abline(v= c(-1.96, 1.96), col='red') 
abline(h= 3.84, col='red') 
text(x[ abs(x) > 2|y > 3.8], y[abs(x) > 2|y > 3.8]+.15, 
     paste0("(",round(x[ abs(x) > 2|y > 3.8],1), " , ", 
        round(y[ abs(x) > 2|y > 3.8],1), 
       ")"))

출처

2013-09-27 21:53:37

라벨이 내 코드 플롯

답변

관련 문제