在图上添加一个框

Question

我想突出显示数据分布右侧的栏。 由于它太小，我认为最好的方法是在条形图上添加一个带红色边距的框（x轴为25.0）。 如何在直方图上添加这样的框？

提前致谢。

Answer 1

可以独立地为条形和边框着色。但为此你需要知道你有多少人！

这是一个命题，当你想要做的是将右边的第一个柱子挑出一个特定值（这里是1.96）时：

set.seed(123)
x <- rnorm(100)
res.hist <- hist(x, plot=FALSE)

n_bars <- length(res.hist$mids)
left_lim <- res.hist$breaks[1:n_bars]
col_bars <- c("steelblue", "gold")[ diff(left_lim >= 1.96) + 1 ]
col_borders <- c(NA, "red")[ diff(left_lim >= 1.96) +1 ]

plot(res.hist, col=col_bars, border=col_borders)