ggplot geom_bar, color, 10

[Marcell]

Hi,

My issue is that I tried to plot a barchart with stat identity for lickert-scale values but from 0 to 10. my problem is that the place of the 10th block is fine, but the color palette starts form the beginnig. Enclosed some pics and a part of code.

The goal is to solve how to make the color of 10 to white.

Thank you for your help in advance.

ggplot() +
geom_bar(data = df %>% filter(dir=="low"), aes(x = variable, y = -Freq, fill = value), position = "stack", stat = "identity", color = "black") +
geom_bar(data = df %>% filter(dir=="high"), aes(x = variable, y = Freq, fill = value), stat = "identity", position = position_stack(reverse = TRUE), color = "black") +
scale_fill_grey() +
coord_flip() +
xlab("") +
ylab("") +
labs(
title = "Melyik tényezők miatt mondana fel egy munkahelyen?",
subtitle = "1: emiatt nem mondanék fel - 5: emiatt mindenképpen felmondanék"
) +
scale_y_continuous(labels = scales::percent_format(accuracy = 1), expand = c(0, 0), breaks = seq(-1, 1, 0.25), limits = c(-1, 1)) +
scale_x_discrete(labels = c(
"s43" = "A munkámat nem ismerik el", "s44" = "A béremelés kicsiny\nmértéke, elmaradása", "s45" = "Előrejutás nem szakmai\nszempontok alapján történik", "s46" = "Sok túlóra", "s47" = "Túlórák ki nem fizetése", "s48" = "Szakmailag nem\nmegfelelő környezet",
"s49" = "Monoton munka", "s50" = "20%-kal magasabb\nbérajánlat máshonnan"
)) +
theme_economist() +
theme(
legend.position = "bottom",
legend.title = element_blank(),
panel.grid.major = element_line(
colour = "grey",
size = rel(1)
),
panel.grid.major.x = element_line(
colour = "grey",
size = rel(1)
),
axis.title = element_text(margin = margin(t = 10, r = 1, b = 0, l = 0)),
plot.title = element_text(margin = margin(r = 10, b = 10, l = 0)),
axis.ticks.length = unit(5, "points"),
plot.margin = margin(r = 20, t = 5, b = 10)
)

[FJCC]

If I understand your problem correctly, I think you need to define the levels of the Value column so that "10" is the greatest value and then set the color scale manually. Here is a simplified example.

DF <- data.frame(Variable = c(rep("S01", 11),rep("S02", 11)), 
                 Freq = c(sample(1:11,11), sample(1:11,11)),
                 Value = c(sample(0:10,11),sample(0:10,11)))
DF$Value <- factor(DF$Value, levels = as.character(0:10), ordered = TRUE)
library(ggplot2)
ggplot(DF, aes(x = Variable, y = Freq, fill = Value)) + geom_col() +
  scale_fill_manual(values = c("gray5", "gray15","gray25","gray35","gray45","gray55",
                               "gray65","gray75","gray85","gray95", "white")) +
  labs(fill = "Value")

^{Created on 2020-04-19 by the reprex package (v0.3.0)}