비 균일 간격 축 플롯

Question

기본 그래픽에서 프라이 그래프 (아래 참조)를 재생하려고 시도하고 결국 그래프의 숫자 값 점을 그려 봅니다.

이 그래프는 y 축에 고르지 않은 간격을 포함합니다. 나는 여기에 다른 글에서 labels을 문자로 입력해야하지만 정확한 것으로 보이지는 않는다. 어떻게 것 내가 (코드의 끝을 참조) 포인트를 추가해야하는 경우

1. 내가 제대로
2. 나중에 y 축에 레이블 (Y)를 플롯하는 방법 : 나는 도움이 필요 두 가지 문제가 수치가 아닌 ay 축에 숫자 지점을 그릴 수 있습니까?

CODE :

Y <- c('2.0', '2.5', '3.0', '3.3', '3.5', '3.6', '3.7', '3.8', '4.0', '4.2', '4.3', 
      '4.5', '4.8', '5.0', '5.2', '5.6', '5.9', '6.3', '6.7', '7.1', '7.7', '8.3', 
      '9.1', '10.0', '11.1', '12.5', '14.3', '16.7', '20.0', '20+') 

X11(14, 10) 
plot(1, 1, xlim=c(108,172), axes=FALSE, type='n', 
    xlab="Average number of syllables per 100 words", 
    ylab="Average number of sentences per 100 words", 
    main="Fry Graph for Estimating Reading Ages (grade level)", 
    xaxs = 'i', yaxs = 'i') 

axis(1, at = 108:172, labels = TRUE) 
axis(2, at = 2:25, labels=Y) 
grid(nx=64, ny=46, lty="solid", col="gold") 
grid(nx=32, ny=23, lty="solid", col="gray65") 
box() 

y <-c(5, 5.9) 
x <-c(128, 136) 
points(x, y) 

당신이 불일치 해결해야

Answer 1

: 플롯 호출 = 범위 (의 범위) 인수 ylim을 추가하여 다음

> length(Y) 
[1] 30 
> length(2:25) 
[1] 24 

을, 당신 당신이 원하는대로 "at"를 그릴 수 있어야합니다. 현재 ylim은 c (1,1)의 데이터 범위로 설정됩니다.

(라스 = 2 회전 할 수있는 레이블 :

plot(1, 1, xlim=c(108,172), axes=FALSE, type='n', ylim=c(1,30), 
    xlab="Average number of syllables per 100 words", 
    ylab="Average number of sentences per 100 words", 
    main="Fry Graph for Estimating Reading Ages (grade level)", 
    xaxs = 'i', yaxs = 'i') 

axis(1, at = 108:172, labels = TRUE) 
axis(2, at = 1:30, labels=Y, las=2) 
grid(nx=64, ny=46, lty="solid", col="gold") 
grid(nx=32, ny=23, lty="solid", col="gray65") 
box()