Почему мой барплот не переставляет должным образом при работе с ggplot?

Question

Итак, я сделал этот барплот с этим кодом, бары организованы в порядке убывания, отлично!

 na.omit(insect_tally_native_ranges)%>%
  group_by(native_ranges)%>%
  dplyr::summarise(freq=sum(n))%>%
  ggplot(aes(x=reorder(native_ranges,freq),y=freq))+
  geom_col(color="#CD4F39",fill="#CD4F39",alpha=0.8)+
  coord_flip()+
  labs(x="Native ranges",
       y="Number of invasive insect arrivals",
       title="Species by native ranges")+
  theme_minimal()

И теперь я хотелсделать то же самое, но огранить переменную с именем Period, вот код:

ggplot(native_freq_period,
         aes(y=reorder(native_ranges,freq),x=freq))+
  geom_barh(stat= "identity",
            color="#CD4F39",
            fill="#CD4F39",
            alpha=0.8)+
  labs(x="Native ranges",
       y="Number of invasive insect arrivals",
       title="Species by native ranges")+
  theme_minimal()+
  facet_wrap(~Period)

Но сюжет получился так:

Это довольно раздражает, потому что это тот же код, что и выше, и уровни для переменной native_ranges должны быть организованы снова.Но вместо этого он дает мне этот комковатый порядок, который даже не алфавитный порядок.Таким образом, часть reorder переупорядочивается, но не на freq!Не понимаю

Вот данные:

structure(list(native_ranges = structure(c(6L, 10L, 11L, 7L, 
3L, 5L, 1L, 1L, 8L, 6L, 3L, 5L, 2L, 4L, 5L, 7L, 7L, 7L, 8L, 9L, 
11L), .Label = c("Afrotropic", "Afrotropic/Neotropic", "Australasia", 
"Australasia/Neotropic", "Indomalaya", "Nearctic", "Neotropic", 
"Neotropic/Nearctic", "Neotropic/Nearctic/Australasia", "Palearctic", 
"Palearctic/Indomalaya"), class = "factor"), Period = structure(c(4L, 
4L, 4L, 4L, 4L, 4L, 3L, 4L, 4L, 3L, 3L, 3L, 4L, 4L, 2L, 1L, 2L, 
3L, 2L, 4L, 3L), .Label = c("1896-1925", "1926-1955", "1956-1985", 
"1986-2018"), class = "factor"), freq = c(21L, 13L, 12L, 11L, 
10L, 10L, 4L, 4L, 4L, 3L, 2L, 2L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L)), row.names = c(NA, -21L), class = c("grouped_df", "tbl_df", 
"tbl", "data.frame"), vars = "native_ranges", drop = TRUE, indices = list(
    6:7, 12L, c(4L, 10L), 13L, c(5L, 11L, 14L), c(0L, 9L), c(3L, 
    15L, 16L, 17L), c(8L, 18L), 19L, 1L, c(2L, 20L)), group_sizes = c(2L, 
1L, 2L, 1L, 3L, 2L, 4L, 2L, 1L, 1L, 2L), biggest_group_size = 4L, labels = structure(list(
    native_ranges = structure(1:11, .Label = c("Afrotropic", 
    "Afrotropic/Neotropic", "Australasia", "Australasia/Neotropic", 
    "Indomalaya", "Nearctic", "Neotropic", "Neotropic/Nearctic", 
    "Neotropic/Nearctic/Australasia", "Palearctic", "Palearctic/Indomalaya"
    ), class = "factor")), row.names = c(NA, -11L), class = "data.frame", vars = "native_ranges", drop = TRUE))

Answer 1

ОК, наконец-то разобрался с помощью другого ответа.Вам нужно создать еще один столбец, который суммирует общую частоту, чтобы затем можно было изменить порядок по этому столбцу.Возможно, есть более эффективный способ сделать это, но я создаю новый сводный файл data.frame, а затем присоединяю его к оригиналу, а затем переупорядочиваю на основе нового столбца.

summary_data <- data %>%
 ungroup() %>%
 group_by(native_ranges) %>%
 summarize(total = sum(freq))

data <- data %>%
 left_join(summary_data)

ggplot(data, aes(y = reorder(native_ranges, total),x = freq)) +
 geom_barh(stat= "identity",
           color="#CD4F39",
           fill="#CD4F39",
           alpha=0.8) +
 labs(x="Native ranges",
      y="Number of invasive insect arrivals",
      title="Species by native ranges") +
 theme_minimal()+
 facet_wrap(~Period)

Answer 2

Вы должны сначала упорядочить порядок переменных перед построением графика.Поскольку вы не предоставили никаких воспроизводимых данных, я использую следующие данные

drugs <- data.frame(drug = c("a", "b", "c"), effect = c(4.2, 9.7, 6.1))
ggplot(drugs, aes(drug, effect)) +
  geom_col()

Теперь, чтобы изменить порядок использования переменной factor

drugs$drug <- factor(drugs$drug,levels = c("b","a","c")) #This is the order I want 
ggplot(drugs, aes(drug, effect)) +
  geom_col()

Здесь я предоставил levels in factor вручную.Вы можете предоставить их вручную или отсортировать порядок переменных сначала отдельно и указать их.См. Ниже,

drugs$drug <- factor(drugs$drug,levels = drugs[order(drugs$effect),]$drug)
ggplot(drugs, aes(drug, effect)) +
  geom_col()

Это также должно работать с facet_wrap.