Zmień kolor wypełnienia jednego z dodanych słupków w ggplot

Question

Chcę zmienić kolejność wykresu słupkowego tylko dla ostatniego zestawu, aby go podświetlić. Użyłem scale_fill_manual(), ale to nie pomogło.

Oto mój kod:

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")) 

Oto wynik:

Chcę wykres wyglądać:

Czy jest jakiś sposób mogę to zrobić ? Byłbym wdzięczny za każdą pomoc. Spojrzałem na change color of only one bar in ggplot, ale wydaje się, że nie dotyczy to zgrupowanych danych.

Answer 1

Moja ogólna mantra jest taka, że ​​ggplot jest bardzo dobry w wykreślaniu danych, które mu dajesz. Jeśli chcesz, aby działał inaczej, najłatwiej jest zmodyfikować dane.

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

dodałem ukrytych dodatkową przestrzeń w "Type2 " dla wiersza, który chcesz zaznaczyć. Będzie to odrębny poziom czynników i otrzyma swój własny kolor (a nawet zostanie wymyślony w ładnym porządku przy użyciu alfabetycznego ustawienia domyślnego). Ale będzie wyglądać tak samo w etykiecie legendy.

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")) 

Myślałem, że pomijając czerwony z legendy byłoby trudne, ale this answer pokazał mi, że wszystko, co jest potrzebne, aby dodać breaks = c("Type1", "Type2") jako argument do scale_fill_manual.

Answer 2

Co z podświetleniem paska z obramowaniem. Na przykład:

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: W odpowiedzi na Twój komentarz: Myślę działka linia sprawia, że ​​łatwiej zobaczyć trendy i relacje między każdym type. Na przykład:

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

Łatwo to zrobić z legendą, choć może chcesz być ostrożny o wyrzucanie użytkowników off z nagłą zmianą koloru. Po prostu dodaj dodatkową kategorię do zmiennej x, aby wskazać miejsce, w którym chcesz podświetlić.

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")) 

Innym potencjalnym rozwiązaniem dla podkreślając szczególny pasek jest narysować pole wokół niego, tak jak poniżej:

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)) 

nadzieję, że pomoże.