如何订购离散x轴？

Question

我想订购我的比例，以便值与我的数据框中的顺序相同，从WT End of Night开始到以MT End of Day结束。当我点击运行时，出现的图表显示完全相反的顺序。

我已经尝试过scale_x_discrete（breaks = c（“WT”，“MT”，“WT”，MT“））但是r删除了所有4行，因为它们”包含缺失值“。我也尝试了与rev的不同组合（ ）但这也不起作用。谢谢！

    glucose <- c(793,429,658,2265)
    Plant <-c("WT","MT","WT","MT")
    day <-  c("End of Night", "End of Night", "End of Day", "End of Day")
    Glucose <- data.frame(Plant, glucose, day)
    ggplot(Glucose, aes( x=day, y= glucose, fill=Plant))+
      geom_bar(stat="identity", position ="dodge")

Answer 1

您可以尝试重新排序因子Plant的级别，以便WT是第一级（默认情况下，顺序是按字母顺序）。

Glucose %>%
  mutate(Plant = fct_relevel(Glucose$Plant, "WT", "MT")) %>% 
  ggplot(aes(x = day, y = glucose, fill = Plant)) +
  geom_col(position = "dodge")

另请注意，geom_col()是geom_bar(stat = "identity")的替代品。