Как получить осевые метки с разными цветами в пределах одной оси для графика ggplot?

Question

Рассмотрим простой ggplot2 граф

library(ggplot2) 
dat <- data.frame(name=c("apple", "orange", "plum"),value=c(3,8,2),outlier=c(FALSE,TRUE,FALSE)) 
ggplot(dat)+geom_point(aes(x=value,y=name)) 

Есть ли способ изменить стили атрибутов оси у меток (скажем, цвет) условно, например, в зависимости от outlier столбца в dat?

Результат будет что-то вроде

На графике с большим количеством элементов этой функции низина значительно улучшить читаемость графика и воздействие.

Answer 1

Более простой способ (ИМО), чтобы сделать это просто создать условный цвет вектор и разобрать его в axis.text.y

dat <- data.frame(name=c("apple", "orange", "plum"),value=c(3,8,2),outlier=c(FALSE,TRUE,FALSE)) 
colvec <- character(dim(dat)[1]) 
colvec <- ifelse(dat$outlier, "red", "black") 

library(ggplot2) 
ggplot(dat) + 
geom_point(data = dat, aes(x=value,y=name)) + 
theme(axis.text.y = element_text(colour=colvec)) 

Answer 2

Я не думаю, что это так хорошо, как окрашивать саму точку останец, но вы можете поредактируете на Grob:

p <- ggplot(dat)+geom_point(aes(x=value,y=name)) 
g <- ggplotGrob(p) 

#I found this by using str(g) and looking for "axis.text.y.text" 
#there is probably a clever way of automating this 
g[[1]][[2]]$children$axis$grobs[[1]]$gp$col <- c("grey50", "red", "grey50") 

plot(g) 

Делать это условно можно использовать что-то вроде c("grey50", "red")[dat$outlier] предполагая, что порядок строк необходим. Однако я могу только повторить, что вы, вероятно, должны создать другой график, если считаете, что вам нужно что-то вроде этого.