在ggplot中按因子重新排序x值

Question

假設我有以下命令生成 plot

mpg %>% filter(manufacturer == "toyota") %>%
  ggplot( aes(x=model, y=hwy, fill=class)) + 
  theme(axis.text.x = element_text(angle = 20, hjust = 1)) +
  geom_boxplot()

鏈接到圖片

有沒有一種方法可以按因子對 x 標簽進行排序，以便所有具有相同 class 的箱線圖彼此相鄰出現？

謝謝！

Answer 1

我們可以使用factor重新排序。 按“類”、“模型” arrange數據，然后將“模型”轉換為factor ，將levels指定為“模型”的unique值並重新運行ggplot

library(dplyr)
library(ggplot2)
mpg %>% 
  filter(manufacturer == "toyota") %>% 
  arrange(class, model) %>% 
  mutate(model = factor(model, levels = unique(model))) %>% 
  ggplot( aes(x=model, y=hwy, fill=class)) + 
    theme(axis.text.x = element_text(angle = 20, hjust = 1)) +
    geom_boxplot()

-輸出

---

另一個選項是fct_reorder

library(forcats)
mpg %>% 
  filter(manufacturer == "toyota") %>%
  ggplot( aes(x=fct_reorder(model, class), y=hwy, fill=class)) + 
    theme(axis.text.x = element_text(angle = 20, hjust = 1)) +
    geom_boxplot()