두 가지 요인에 따라 막대 차트에서 특정 막대의 색상 변경

Question

나는 이와 비슷한 것을하고 싶지만 좀 더 복잡합니다. 그래서이 그것을 만드는 것입니다

x <- c(3,-1.4,0.8,-0.3,-1.2,-2.5,1.5,-1.4) 
breaks <- c(-Inf, -1, 1, Inf) 
cols <- c("blue", "grey", "red")[findInterval(x, vec=breaks)] 
barplot(x, col = cols, horiz=T) 

: 여기

Change colours of particular bars in a bar chart

내 데이터입니다

그때의 p- 값을 사용한다 수행 할 작업을

chart http://www.diabolotricks.net/Rplot-test.jpg

통계적으로 의미있는 회색이 아닌 막대의 색상을 변경합니다.

pval<- c(0.01,0.03,0.04,0.89,0.45,0.01,0.03,0.02) 

그래서 네 번째 막대도 회색이됩니다.

ifelse의 다양한 조합을 사용해 보았습니다.

Answer 1

cols의 해당 값을 바꿉니다. 이 [<- 쉽게 수행하거나 같은 일

당신이 알파를 사용하는 가정에 대한 래퍼입니다 replace = 0.05

를 사용할 수

myalpha <- 0.05 
cols[pval > myalpha] <- 'grey' # could also be cols <- replace(cols, pvals > 0.05, 'grey') 
barplot(x, col = cols, horiz=T)