高さの高いバーをバープロットに合わせるにはどうしたらいいですか？

Question

次のRスクリプトは、プロットに収まない高さのバーを生成します。バーはy軸を超え、注釈（パーセンテージ）は表示されません。どのようにして、全体の高さの棒とその注釈を表示する棒グラフを生成できますか？

png(filename = "plot.png") 
x <- c("A", "B") 
y <- c(2e6 + 10, 400) 
sum_Y <- sum(y) 
midpoints <- barplot(height = y, log = "y") 
text(midpoints, y, sprintf("%.2f%%", y/sum_Y * 100), pos = 3) 
dev.off() 

Answer 1

あなたはggplot2でそれを行うことができます：

library(ggplot2) 
qplot(x,y,geom="bar",log="y") + geom_text(aes(y=y*1.5, label=sprintf("%.2f%%", y/sum_Y * 100))) 

Answer 2

png(filename = "plot.png") 
x <- c("A", "B") 
y <- c(2e6 + 10, 400) 
sum_Y <- sum(y) 
midpoints <- barplot(height = y, log = "y", ylim=c(5e1,5e6)) 
text(midpoints, y, sprintf("%.2f%%", y/sum_Y * 100), pos = 3) 
dev.off() 

Rは、それがそのログスケールの制限として受け入れるかについてかなりうるさいです。

Answer 3

（@Dwin ylab調整に基づいて）別のオプションはplotrixパッケージを使用することです。あなたは対数目盛ラベルをよりプレイしたい場合は、barpにheight.atとheight.labオプションをチェック：あなたの迅速な対応のための

require(plotrix) 
png(filename = "plot.png") 
x <- c("A", "B") 
y <- c(2e6 + 10, 400) 
sum_Y <- sum(y) 
midpoints <- barp(height = y, ylog = T, ylim=c(1,5e6)) 
text(y, sprintf("%.2f%%", y/sum_Y * 100), pos = 3) 
dev.off()