r - 我怎样才能在条形图中放置一个高大的条形图？

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

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 对于它接受的对数尺度的限制相当挑剔。