Я создал гистограмму с каждой переменной, имеющей до четырех точек данных. Мне удалось построить это успешно. Единственная проблема, с которой я сейчас сталкиваюсь, это то, что ключ находится не в том порядке, в котором я хотел бы его видеть. В идеале я хотел бы получить ключ от лучшего до худшего или в данном случае «Отлично» до «Не очень хорошо».
Какую часть кода мне нужно изменить для заказа на go с лучшего на худший?
df <- read.csv("//ecfle35/STAFF-HOME$/MaxEmery/open event feedback/October/Q3.csv")
df %>%
#First the dataset needs to be long not wide
gather(review,
count,
Excellent:Not.so.good,
factor_key = T) %>%
#Lets get ride of N/A
filter(count != 'N/A') %>%
#convert count from string to number
#Remove the annoying full stop in the middle of text
mutate(count = as.integer(count),
review = gsub('\\.', ' ', review)) %>%
ggplot(aes(
x = Faculty,
y = count,
fill = review
)) +
geom_bar(position = 'dodge',
stat = 'identity') +
scale_y_continuous(breaks = seq(0, 22, by = 2)) +
labs(title = 'Teaching Staff Ratings',
x = 'Faculty',
y = 'Count') +
theme(axis.text.x = element_text(angle = 90))
Ниже приведено изображение того, как он выглядит в настоящее время -
Графика c моего сюжета