Изменить цвета столбцов гистограммы больше определенного значения

) До сих пор мне удавалось изменить цвет одной полосы на гистограмме, следуя примеру здесь

test <- rnorm(100);
h <- hist(test);
b <- cut(1, h$breaks);
clr <- rep("grey", length(h$counts));
clr[b] <- "red";
plot(h, col=clr);

Я хочу быть возможность изменить цвет ячеек гистограммы, которые находятся выше определенного значения по оси x - например, которые выше 1. в функции распределения в примере. Одна из причин, по которой у меня возникают проблемы, заключается в том, что я не совсем понимаю фактор что cut () возвращает.