Я пытаюсь построить гистограмму стандартных отклонений выше и ниже средних значений графика.
Я хочу, чтобы поля с 0-1 были зелеными, + -1-2 - желтыми, + -2-3 - оранжевыми, а 3-4 - фиолетовыми
Это код, который я пробовал, но он окрашивает каждую коробку в разные цвета.
tb<- seq(from=-2, to= 4, by= 6/296)
range <- c(-2, -1, 0, 1, 2, 3, 4)
col <- findInterval(tb, range, all.inside = TRUE)
col[which(col==1)] <- "orange"
col[which(col==2)] <- "yellow"
col[which(col==3)] <- "green"
col[which(col==4)] <- "yellow"
col[which(col==5)] <- "orange"
col[which(col==6)] <- "red"
col[which(col==7)] <- "purple"
Участок
p3<-ggplot(DF, aes(x=SD,y=, colour=col))+
geom_histogram(binwidth = 0.1) +
scale_x_continuous(breaks = seq(-2,4, 1))+
labs(title = "SD from COF")
Выход:
