How do I highlight an observation's bin in a histogram in R

I want to create a histogram from a number of observations (i.e. d <- c(1,2.1,3.4,4.5) ) and then highlight the bin that a particular observation falls in, such that I have an output that looks like this:

how do I do this in 开发者_如何学GoR?

Expanding on dangerstat's answer, here is a little function that will automatically find which bin contains the value that you want to highlight:

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, ...)
}

Now

x <- rnorm(100)
highlight(x, 1.2, "red")

will highlight the bin with 1.2 in it in red.

x = rnorm(100)
hist(x,br=10,col=c(rep(0,9),1))

Clearly this will color the last column so tweak the col= bit for your needs

Thanks

dangerstat