r - 極値がいくつかある棒グラフ

Question

次のベクトルを検討してください。

vec <- c(-0.137042293280008 ,-0.0085530023889108 ,7.696986350237e-05 ,9.85275557252565e-05 ,0.000246261331270769 ,-0.0013658222244989 ,0.00117046787783182 ,-0.000423648394606887 ,-0.000112607126438433 ,0.00212185051472275 ,-0.000110104526782098)
names(vec) <- paste("var", 1:length(vec), sep = " ")

vecR でa を使用してプロットしたいと思いbar plotます。ただし、ご覧のとおり、ベクトルの残りの部分と比較して極端な値が 1 つまたは 2 つあります。棒グラフを描画すると、小さい値はグラフにほとんど表示されません。

par(xaxs='i',yaxs='i', mai = c(0.5,2,0.5,1.5))
bp2 <- barplot(vec, horiz = TRUE, col = "lightblue4", border = "lightblue4", yaxt = 'n', cex.axis = 0.7)
axis(2, at = bp2, labels = names(vec), tick = FALSE, las = 2, cex.axis = 0.7)

グラフをより適切に表示する方法はありますか? たとえば、最終的に x 軸を分割する方法はありますか? 以下のグラフは (無関係な) 例ですが、この場合の y 軸がどのように分割され、すべての値がグラフに表示されるかを示しています。

PS: ベクトル値の一部が負であるため、私の場合、対数スケールでのプロットはオプションではありません。

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

Answer 1

gap.barplotplotrix パッケージから必要です。これを見てください：

library(plotrix)
gap.barplot(vec,gap=c(-0.12,-0.04),xlab="Index",ytics=c(-0.04,-0.02,0),
            ylab="",main="Barplot with gap", horiz=TRUE)

変更gapしてytics議論し、プロットに必要な美学を取得します。