r - 箱ひげ図の境界線が描かれるのと同じ方法で、R のバープロットの周りに境界線を描く方法

Question

Rがデフォルトで境界線でボックスプロットを分離するのと同じ方法で、バープロットのプロットを分離するのと同じ効果を得ようとしています。つまり、下の最初のプロットに表示される境界線を 2 番目のプロットに表示する必要があります。

par(mfrow=c(2,1))

## boxplot on a formula:
boxplot(count ~ spray, data = InsectSprays, col = "lightgray")
# *add* notches (somewhat funny here):
boxplot(count ~ spray, data = InsectSprays,
        notch = TRUE, add = TRUE, col = "blue")


require(grDevices) # for colours
tN <- table(Ni <- stats::rpois(100, lambda=5))
r <- barplot(tN, col=rainbow(20))
#- type = "h" plotting *is* 'bar'plot
lines(r, tN, type='h', col='red', lwd=2)