Расширяя ответ опасности, вот небольшая функция, которая автоматически найдет, в какой корзине есть значение, которое вы хотите выделить:
highlight <- function(x, value, col.value, col=NA, ...){
hst <- hist(x, ...)
idx <- findInterval(value, hst$breaks)
cols <- rep(col, length(hst$counts))
cols[idx] <- col.value
hist(x, col=cols, ...)
}
Сейчас
x <- rnorm(100)
highlight(x, 1.2, "red")
выделит корзину с 1,2 в нем красным цветом.