Colors of bar graph after setting new labels for the legend

[blaauwj]

Hi,
My issue is that after creating a stacked bar graph I wanted to change both the colours of the bar graph (something like "Blues") but also change the legend labels. After combining the same error comes up:
Scale for 'fill' is already present. Adding another scale for 'fill', which will replace the existing scale.

I cannot seem to get it right, please help!.

Heres my code:
Symptom <- c("Cognitive Deficit", "No Cognitive Deficit")
Uppergood <- c(27, 62)
Lowergood <- c(34, 19)
Uppermoderate <- c(15, 9)
Lowermoderate <- c(8, 4)
Uppersevere<- c(4, 1)
Lowersevere <- c(3, 2)
Death <- c(9, 3)
total <- Death + Lowersevere + Uppersevere + Lowermoderate + Uppermoderate + Lowergood + Uppergood
df <- data.frame(Symptom, Death, Lowersevere, Uppersevere, Lowermoderate, Uppermoderate, Lowergood, Uppergood, total)'

df2 <- rbind(
data.frame(Symptom, "Percentage" = Uppergood, "GOSE"="Uppergood"),
data.frame(Symptom, "Percentage" = Lowergood, "GOSE"="Lowergood"),
data.frame(Symptom, "Percentage" = Uppermoderate, "GOSE"="Uppermoderate"),
data.frame(Symptom, "Percentage" = Lowermoderate, "GOSE"="Lowermoderate"),
data.frame(Symptom, "Percentage" = Uppersevere, "GOSE"="Uppersevere"),
data.frame(Symptom, "Percentage" = Lowersevere, "GOSE"="Lowersevere"),
data.frame(Symptom, "Percentage" = Death, "GOSE"="Death")
)

ggplot(df2, aes(x=Symptom, y=Percentage, fill=GOSE)) +
geom_bar(stat="identity", width=0.45, colour = "black") + coord_flip()+ scale_fill_discrete(name = "GOS-E score",labels = c("Upper Good Disability", "Lower Good Disability", "Upper Moderate Disability", "Lower Moderate Disability", "Upper Severe Disability", "Lower Severe Disability", "Death")) +
guides(fill = guide_legend(reverse=TRUE)) + theme(legend.title = element_text(color = "black", size = 15),legend.text = element_text(color = "black"))

Which does provide me with the preferred legend labels.

But after adding: scale_fill_brewer(palette="Blues") the error comes.

[toryn_stat]

You can only have one scale_fill_ per plot. If you want to use the brewer Blues palette, just replace scale_fill_discrete with the scale_fill_brewer and keep the name and labels argument like this:

ggplot(df2, aes(x=Symptom, y=Percentage, fill=GOSE)) +
geom_bar(stat="identity", width=0.45, colour = "black") + 
  coord_flip()+ 
  scale_fill_brewer(palette = "Blues", name = "GOS-E score",labels = c("Upper Good Disability", "Lower Good Disability", "Upper Moderate Disability", "Lower Moderate Disability", "Upper Severe Disability", "Lower Severe Disability", "Death")) +
guides(fill = guide_legend(reverse=TRUE)) + 
  theme(legend.title = element_text(color = "black", size = 15),legend.text = element_text(color = "black"))

Furthermore, you do not even need the guides() and can use the direction argument of scale_fill_

ggplot(df2, aes(x=Symptom, y=Percentage, fill=GOSE)) +
geom_bar(stat="identity", width=0.45, colour = "black") + 
  coord_flip()+ 
  scale_fill_brewer(palette = "Blues", direction = -1, name = "GOS-E score",labels = c("Upper Good Disability", "Lower Good Disability", "Upper Moderate Disability", "Lower Moderate Disability", "Upper Severe Disability", "Lower Severe Disability", "Death")) +
  theme(legend.title = element_text(color = "black", size = 15),legend.text = element_text(color = "black"))