플롯 errbar x는이 코드를 작성했습니다

Question

요인의 R은 {Hmisc} X 축 :

with (data = puresa, 
     expr = errbar(Chr, Purity, Purity+sd, Purity-sd, add=F, pch=1, cap=.015)) 

그것은이 같은 플롯을 나타내는 :

하지만 내 목표는 음모를 꾸미고있다 Chl은 xlab에서, 위의 그림에서와 같이 ylab에서는 그렇지 않습니다. 문제는 "Chr"이 하나의 요인이라는 것입니다. 내가 숫자로 인쇄 할 때 나는 내 목표를 얻을 수 있기 때문에 :

with (data = puresa, 
     expr = errbar(as.numeric(Chr), Purity, Purity+sd, Purity-sd, cap=.015)) 

이 마지막 플롯의 문제는 내가 대하 이름으로 xlab 값을 대체 할 수 있다는 것입니다.

이 코드를 시도하고 있지만 작동하지 않습니다 ...

with (data = puresa, 
     expr = errbar(as.numeric(Chr), Purity, Purity+sd, Purity-sd, 
        xlab=if(is.character(Chr) || is.character(Chr)) "" else (substitute(Chr)))) 

나는 당신의 도움이 뵙죠 것, 대단히 감사합니다!

Answer 1

괜찮 았어!

par(las=2) 
plot(as.numeric(puresa$Chr), puresa$Purity, type="n", xaxt = "n", ylim=c(0,1), main="Tumor purity", xlab="Chromosome", ylab="Purity") 
errbar(as.numeric(puresa$Chr), puresa$Purity, puresa$Purity+puresa$sd, puresa$Purity-puresa$sd, add=T) 
axis(1, at=1:25, labels=levels(puresa$Chr), cex.axis=0.8) 

은 누군가가 도움이되기를 바랍니다.