Измените цвет заливки одного из уклоняемых баров в ggplot

Question

Я хочу изменить порядок штрихового графика только для последнего набора, просто выделив его. Я использовал scale_fill_manual(), но это не помогло.

Вот мой код:

x<-c(rep(c("Type1", "Type2"),4)) 
    y<-c(4,5,6,7,3,4,5,2) 
    time<-c(2010,2010,2011,2011,2012,2012,2013,2013) 
    z<-data.frame(type = x, val=y, Time = time) 

    ggplot(data = z, aes(x=Time,y=val)) + 
     geom_bar(stat = "identity", position = "dodge", aes(fill=type))+ 
     scale_fill_manual(values = c(rep(c("white", "gray51"),3),"white","red")) 

Вот результат:

Я хочу график выглядеть следующим образом:

Есть ли способ, что я могу сделать это ? Буду признателен за любую помощь. Я посмотрел change color of only one bar in ggplot, но, похоже, это не сгруппированные данные.

Answer 1

Моя общая мантра такова, что ggplot очень хорош при построении данных, которые вы ему даете. Если вы хотите, чтобы в нем было что-то другое, проще всего изменить ваши данные.

z$type2 = as.character(z$type) 
z$type2[z$type == "Type2" & z$Time == 2013] = "Type2 " 

Я добавил подлый дополнительное пространство в "Type2 " для строки вы хотите выделить. Это будет особый факторный уровень и получить свой собственный цвет (и даже быть принужденным к хорошему порядку с использованием алфавитного значения по умолчанию). Но это будет похоже на ярлык легенды.

ggplot(data = z, aes(x=Time,y=val)) + 
    geom_bar(stat = "identity", position = "dodge", aes(fill=type2))+ 
    scale_fill_manual(values = c("white", "gray50", "red")) 

Я думал, что опуская красный из легенды будет трудно, но this answer показал мне, что все, что нужно, это добавить breaks = c("Type1", "Type2") в качестве аргумента scale_fill_manual.

Answer 2

Как насчет подсветки бара с рамкой. Например:

z$hi = with(z, ifelse(type=="Type2" & Time==2013, "Y","N")) 

ggplot(data = z, aes(x=Time,y=val)) + 
    geom_bar(stat = "identity", position = "dodge", 
      aes(fill=type, colour=hi), size=1) + 
    scale_fill_manual(values=c("gray51","white")) + 
    scale_colour_manual(values=c(NA,"red")) + 
    guides(colour=FALSE) 

UPDATE: В ответ на ваш комментарий: Я думаю, что линия сюжета делает его легче увидеть тенденции и взаимосвязи между каждым type. Например:

ggplot(data = z, aes(x=Time,y=val,colour=type)) + 
    geom_line() + 
    geom_point() + 
    geom_point(data=z[z$hi=="Y",], aes(x=Time, y=val), size=4, pch=1, 
      colour=hcl(195,100,40), stroke=1) + 
    scale_y_continuous(limits=c(0,max(z$val))) + 
    theme_bw() 

Answer 3

Легко сделать это с легендой, хотя вы можете быть осторожными отключал пользователей с резким изменением цвета. Просто добавьте дополнительную категорию в свою переменную x, чтобы указать, где вы хотите выделить.

x<- xHigh <- c(rep(c("Type1", "Type2"),4)) 
xHigh[length(xHigh)] <- "Type2_highlight" 

myHighlight <- rep("No",length(x)) 
myHighlight[length(myHighlight)] <- "Yes" 
y<-c(4,5,6,7,3,4,5,2) 
time<-c(2010,2010,2011,2011,2012,2012,2013,2013) 
z<-data.frame(type = x, xHigh = xHigh, val=y, Time = time, myHighlight = myHighlight) 

ggplot(data = z, aes(x=Time,y=val)) + 
    geom_bar(stat = "identity", position = "dodge", aes(fill=xHigh))+ 
    scale_fill_manual(values = c(Type1 = "white", Type2 = "gray51", Type2_highlight = "red")) 

Другой возможный вариант для выделения конкретного бара, чтобы нарисовать прямоугольник вокруг него, например, так:

ggplot(data = z, aes(x=Time,y=val)) + 
    geom_bar(stat = "identity", position = "dodge", aes(fill=type))+ 
    scale_fill_manual(values = c(Type1 = "white", Type2 = "gray51")) + 
    geom_bar(aes(linetype = xHigh) 
      , fill = NA 
      , stat = "identity", position = "dodge" 
      , col = "red" 
      , show.legend = FALSE) + 
    scale_linetype_manual(values = c(Type1 = 0 
            , Type2 = 0 
            , Type2_highlight = 1)) 

Надежда, что помогает.