My Data.
The input I receieve for my graphs are "Agree", "Disagree", "Somewhat Agree", and "Somewhat Disagree" in that order. The output I want to see graphed follows a "Agree", "Somewhat Agree", "Somewhat Disagree" and "Disagree" order. I have tried to also change the order in the excel table but nothing comes from that.
``
data_setReading20 <- read_excel("~/Desktop/Survey_Data1_ENGSPA(FIXED).xlsx")
my_data20 <- data_setReading20[, c("par_res20", "par_count20")]
ggplot(data = my_data20, aes(x = par_res20, y = par_count20, fill = par_res20)) +
geom_bar(stat = "identity") +
geom_text(mapping = aes(label=par_count20), position = position_dodge(width = 0.9), cex = 2.5, vjust=-1) +
labs(fill = "Responses",
x = "Youth Responses",
y = "Youth Count",
subtitle = "I want to come OR return to _ in person.",
caption = "N = 312, youth responses to survey in English and Spanish") +
scale_fill_manual(values = c("Agree" = "#FCD81F",
"Somewhat Agree" = "#F88B3B",
"Somewhat Disagree" = "#F8543B",
"Disagree" = "#F8AA3B")) +
theme_bw()