ggplot2 порядок столбцов по значениям одной группы - PullRequest
Новая
       8

ggplot2 порядок столбцов по значениям одной группы

2 голосов
/ 26 мая 2020

Пытаюсь заказать штриховку в ggplot. Я пытаюсь сделать один из этих графиков рядом друг с другом. У меня есть данные для 2 групп, и я хотел бы отсортировать график по значениям одной группы. На данный момент мой сюжет выглядит так:

Example barplot

Я бы хотел добиться этого:

Expected plot

Где график упорядочен по убывающим значениям группы 1 (здесь синий). Как я могу это сделать? Я попробовал fct_reorder в категории внутри групп, упорядочить, отсортировать, упорядочить, удалось заказать его за пределами ggplot, но этого не произошло ... любая помощь будет оценена!

EDIT: в соответствии с к предложениям я попробовал следующее: 

data %>% 
  ggplot(aes(x = fct_rev(fct_reorder(labels, value)), y = value, fill 
  = variable)) +
   geom_bar(stat="identity", width=.5, position = "dodge")  +
   theme(axis.text.x = element_text(angle = 90, hjust = 1))

и получил:

Result Plot

Что на самом деле не то, что я хочу. Я хочу отсортировать по выбранному (красные полосы) в порядке убывания. Selected и new, очевидно, являются одной переменной, поэтому в одном столбце. Если мне придется их разделить, это нормально, я просто не знаю как.

Данные: 

structure(list(labels = c("3", "16", 
                      "20", "15", "2", 
                      "11", "19", 
                      "8", "1", 
                      "9", "12", "14", 
                      "22", "6", "5", 
                      "18", "17", "23", 
                      "21", "13", "7", 
                      "10", "4", "3", "16", 
                      "20", "15", "2", 
                      "11", "19", 
                      "8", "1", 
                      "9", "12", "14", 
                      "22", "6", "5", 
                      "18", "17", "23", 
                      "21", "13", "7", 
                      "10", "4"), variable = structure(c(1L,  1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
                                                          1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
                                                          2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("selected", "new"), class = "factor"), value = c(14.6323031713383, 15.9559892686597, 
                                                                                                                                                                                                  17.8080362595634, 17.9067064016601, 24.0164577112395, 24.8811598509513, 
                                                                                                                                                                                                  26.6357978795688, 26.8956804786175, 29.9814126083425, 32.0991304536091, 
                                                                                                                                                                                                  32.1102536829839, 35.4868462306579, 38.1006034580602, 51.1456293356122, 
                                                                                                                                                                                                  51.3589926258885, 52.1663444535308, 54.5568962268846, 55.046508165816, 
                                                                                                                                                                                                  57.3540750283887, 59.4724704424851, 66.1242468388916, 76.0316429487087, 
                                                                                                                                                                                                  81.2328164785417, 0.852076511173202, 14.5657895883356, 12.879854304722, 
                                                                                                                                                                                                  5.64377267586918, 7.1645313211506, 22.9837800173366, 25.5540168398152, 
                                                                                                                                                                                                  22.2012270424052, 23.9767694081375, 23.8383007367455, 29.8528524241582, 
                                                                                                                                                                                                  35.157323503853, 3.57512478022716, 2.79829414578611, 25.7839377086262, 
                                                                                                                                                                                                  1.61935008218228, 36.4318154009141, 41.9502761903778, 43.6568981148706, 
                                                                                                                                                                                                  50.8270620551394, 25.1245202778254, 17.0173820081843, 32.5450448621647
                                                                                                                                                             )), row.names = c(NA, -46L), class = "data.frame")

1 Ответ

1 голос
/ 26 мая 2020

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

library(ggplot2)
library(dplyr)

sel_order <- 
  data %>% 
  filter(variable == "selected") %>% 
  arrange(desc(value)) %>% 
  mutate(labels = factor(labels))


data %>% 
  mutate(labels = factor(labels, levels = sel_order$labels, ordered = TRUE)) %>% 
  ggplot(aes(x = labels, y = value, fill = variable), group = labels) +
  geom_bar(stat="identity", width=.5, position = "dodge")  +
  theme(axis.text.x = element_text(angle = 90, hjust = 1))

Создано 26 мая 2020 года пакетом REPEX (v0.3.0)

...