r - 最小および最大ラベルの付いたきれいな軸

Question

次のような単純な棒グラフを描きたいと思います。

test <- data.frame(y=c(1,3,53,10,30,35,50), x=c(1:7))
barplot(test$y, names.arg=test$x)

私の問題は、最大値が「きれいでない」数値である場合、y軸が十分に伸びないことです。延長された軸が最大値を超え、最大値よりも大きい「きれいな」値で終了した場合は、より良いでしょう。

ランダムなデータセットが与えられた場合（つまり、これは関数で実行されます）、これを行う簡単な方法はありますか？

Answer 1

pretty()との組み合わせを使用して、次のrange()より適切な設定を自動的に選択できylimます。

test <- data.frame(y=c(1,3,53,10,30,35,50), x=c(1:7))
barplot(test$y, names.arg=test$x, 
        ylim = range(pretty(c(0, test$y))))

range(pretty(c(0, test$y)))（同様に機能することを指摘してくれたGavin Simpsonに感謝しますrange(pretty(c(0, max(test$y)))）