Как мне заказать мой ключ от лучшего к худшему? - PullRequest
0 голосов
/ 22 января 2020

Я создал гистограмму с каждой переменной, имеющей до четырех точек данных. Мне удалось построить это успешно. Единственная проблема, с которой я сейчас сталкиваюсь, это то, что ключ находится не в том порядке, в котором я хотел бы его видеть. В идеале я хотел бы получить ключ от лучшего до худшего или в данном случае «Отлично» до «Не очень хорошо».

Какую часть кода мне нужно изменить для заказа на 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 моего сюжета

1 Ответ

0 голосов
/ 22 января 2020

При преобразовании в коэффициент без указания уровней, уровни определяются в алфавитном порядке. Добавьте mutate() в канал, чтобы перебрать столбец review, прежде чем отправлять его на ggplot().

.
...