在条形图的条形内绘制边框？

Question

我正在绘制一个带有粗条形边框的简单条形图：

par(lwd=3)
barplot(c(6,7))
arrows(0,0,10,0,lwd=1)

边框在 x 轴上稍微突出，看起来很糟糕。

有没有办法在每个条形内绘制边框，而不是围绕它？

Answer 1

我能想到的最好的方法是通过在 barplot 中设置 border = NA 来手动将一些东西组合在一起，然后使用lines添加边框：

par(lwd = 3, lend = 2)
barplot(c(6,7),border = NA)
lines(c(0.2,0.2,1.2,1.2),c(0.02,6,6,0.02))
lines(c(1.4,1.4,2.4,2.4),c(0.02,7,7,0.02))

< img src="https://i.sstatic.net/KrEwm.png" alt="在此处输入图像描述">

这远非理想。 lines 中使用的坐标假设条形之间默认为 0.2 间距，并将底部拉至 0.02 只是基于我的目测。您可能需要根据具体情况进行修改。

Answer 2

在未能找到clip()-ping或简单的“内边框”答案后，我的建议是：

opar <- par(lwd=3)
barplot(c(6,7))
arrows(0,0,10,0,lwd=3, col="grey")
par(opar)

它的优点是不会夹住较高条形的顶部。打赌你没有注意到这一点。直到我使用lwd=10时我才注意到它。