xaxis 값에 따라 둘 이상의 색상이있는 단일 막대 그래프

Question

이미 대답이 here이지만 ggplot2 막대 그래프에만 해당합니다. 의 내가 (6 빨간색 및 6 파란색) 빨간색 막대와 파란색 막대, 각각 같은 수의 히스토그램 생성하기 위해 다음과 같은 코드가 있다고 가정 해 봅시다 :

set.seed(69) 
hist(rnorm(500), col = c(rep("red", 6), rep("blue", 7)), breaks = 10) 

를 I 출력으로 다음과 같은 이미지가 있습니다

을

전체 프로세스를 자동화하고 싶습니다. x 축에서 값을 사용하고 반복 횟수를 지정하지 않고 hist() 함수를 사용하여 히스토그램 막대를 색칠하는 조건을 설정하는 방법은 무엇입니까? 각 색깔의?

지원에 대한 평가가 가장 높습니다.

Answer 1

는 HIST 기능은 브레이크 포인트를 결정하는 예쁜 함수를 사용하여, 그래서 당신이 할 수 있습니다 : (참고 내가, 내가 실제로 데이터를 집계 이렇게하고 barplot을 할 때

set.seed(69) 
x <- rnorm(500) 
breaks <- pretty(x,10) 
col <- ifelse(1:length(breaks) <= length(breaks)/2, "red", "blue") 
hist(x, col = col, breaks = breaks) 

Answer 2

다음과 같이를 그

set.seed(69) 
dat <- rnorm(500, 0, 1) 
tab <- table(round(dat, 1))#Round data from rnorm because rnorm can be precise beyond most real data 
bools <- (as.numeric(attr(tab, "name")) >= 0)#your condition here 
cols <- c("grey", "dodgerblue4")[bools+1]#Note that FALSE + 1 = 1 and TRUE + 1 = 2 
barplot(tab, border = "white", col = cols, main = "Histogram with barplot") 

출력 :

표로 데이터의 막대 그래프는 히스토그램) 인