Используйте другой цвет только для разрывов гистограммы

Question

У меня есть приведенный ниже кадр данных:

result<-floor(runif(100,100,110))
df<-data.frame(result)

, который я использую для создания гистограммы с разрывами первых 10 строк 5-го столбца df.

h <- hist(df$result, plot=FALSE)
cuts <- cut(h$breaks, c(-Inf,unique(df[1:10,5]),Inf))
plot(h, col=c("blue","darkblue","blue")[cuts])

Iхотел бы закрасить blue все столбцы гистограммы, кроме значений breaks, которые должны быть darkblue.Но я не думаю, что я делаю это правильно, поскольку я также беру белые полосы.

это то, что я хочу:

Answer 1

set.seed(1234)
df <- data.frame(result=floor(rnorm(1000, 100, 20)))    
h <- hist(df$result, plot=FALSE, breaks=20)

# Selected breaks
brks <- c(80,85,90)

cols <- rep("lightblue", length(h$breaks))
# Find bars corresponding to breaks
brk_bars <- h$breaks %in% brks
cols[brk_bars] <- "darkblue"

plot(h, col=cols, main="")