非均一な区間軸をプロットする

Question

私は、ベースグラフでフライグラフ（下記参照）を再現し、最終的にそのグラフ上の数値化された点をプロットしようとしています。

このグラフには、y軸に不均一な間隔が含まれています。私はlabelsを文字として入力する必要があることを他の投稿から集めていますが、正しいとは言えません。どのように私はなります（コードの末尾を参照してください）私はポイントを追加する必要があるとき、私は正しく

その後y軸のラベル（Y）をプロットどのように

1. ：私は私が助ける必要がある2つの問題を抱えています 数字ではない軸を数値軸にプロットできますか？プロットコールにYLimプロパティ=範囲（の範囲）の引数を追加することにより
   その後

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

   、あなたは：

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

あなたはこの矛盾を解決する必要がありますあなたが欲しいものを "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()