2012-06-13 4 views

답변

6

?optionsscipen 옵션을 참조하십시오.

set.seed(42) 
dat <- data.frame(x = runif(100, min = 0, max = 1000000), 
        y = runif(100, min = 0, max = 1000000)) 

layout(matrix(1:2, ncol = 2)) 
plot(y ~ x, data = dat) 
opt <- options(scipen = 10) 
plot(y ~ x, data = dat) 
options(opt) 
layout(1) 

생산 :

scipen_plot

다른 옵션을 사용하여 사용자 정의 공급 레이블 자신의 축을 추가 axis()를 사용하여 다음 plot() 호출 axes = FALSE으로 축 억제 등 다음은 예입니다 format(); 자세한 내용은 ?format을 참조하십시오. 이것은 수천을 분리하는 숫자에 실제로 ","를 쓰려면 갈 길입니다.

+0

+1 - 귀하 (OP)가 귀하의 틱 레이블에 쉼표가 필요하지 않는 한, 이것은 갈 길입니다. 만약 당신이 * 필요하다면, 나는 당신이'format()'을 써야한다고 생각한다. –

+0

그래, 나는','이 의도되었는지 확실하지 않았다. –

+0

그게 완벽합니다. 두 가지 방법을 설명해 주셔서 감사합니다. 매우 유용하다고 생각했습니다. – uhohrondo

1

사용 형식과 = 과학 FALSE :

a<-c(100000, 200000) 
format(a, scientific=FALSE) 
+0

나 자신의 레이블로 자신의 축을 플로팅하는 선을 따라 무언가를 추가한다고 가정합니까? 그렇지 않으면 이것은 의미가 없습니다. –

+0

예, Josh가 위에 게시 한 것처럼 자신 만의 축 레이블을 만들어야합니다. 그것은 통화에도 편리합니다. – tcash21

4

다음은 시작하는 예입니다 :

x <- 1:10 
y <- runif(10) * 1e6 

yrange <- c(0, 1e6) 
ticks <- pretty(yrange) 
labels <- format(ticks, big.mark=",", scientific=FALSE) 

plot(y~x, yaxt="n", ylim = yrange) 
axis(2, at = ticks, labels = labels, las = 1, cex.axis=0.7) 

enter image description here