Как подчеркнуть корзину наблюдения в гистограмме в R

Question

Я хочу создать гистограмму из ряда наблюдений (то есть d <- c (1,2,1,3,4,4,5)), а затем выделить бункеру, в которой попадается конкретное наблюдение, так что у меня есть выход, который выглядит так:

Как мне это сделать в R?

Answer 1

Расширяя ответ Дангрстата, вот небольшая функция, которая автоматически обнаружит, какая бин содержит значение, которое вы хотите выделить:

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 в красном.

Answer 2

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

Очевидно, что это раскрасит последний столб

Спасибо

angeresstat