r - R で plot() を使用して y 軸の端の精度を上げる方法

Question

この画像のようなものが欲しいです。

対数グラフをプロットし、y 軸を次の値を取る (等間隔で表示する) ように設定します。

values <- c(seq(0, 0.50, 0.25), seq(0.60, 0.90, 0.10), seq(0.91, 1, 0.01))

これは私のコードが今どのように見えるかです:

...
y_axis <- c(seq(0, 0.50, 0.25), seq(0.60, 0.90, 0.10), seq(0.91, 1, 0.01))
perc <- lapply(y_axis, function(x)quantile(data[,numCol], c(x), na.rm=TRUE, type=1))
graphPer <- tkrplot(fenetreGraph, function(){plot(perc, y_axis, type="l", col="blue", yaxt = "n"); axis(2, list_y_axis, las=2)})
tkgrid(graphPer, row=0, column=3)
...

それは私にこれを与える

ありがとうございました。