How to have more precision at the end of the y-axis using plot() with R -

i want image.

i want plot logarithmic graph, , set y-axis take (to display, same interval) following values.

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

this how code looks :

... 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) ... 

it gives me this

thank you.