重新排序 geom_path 行以匹配因子级别顺序

Question

我想绘制三个项目在三个月内的动物计数总和（“总和”），通过 geom_points 连接到 geom_paths。

我已通过手动排序“月份”因子的级别来指定 x 轴的顺序。

如何重新排序geom_path 以遵循 x 轴的新顺序并平滑连接点？

library(dplyr)
library(ggplot2)

df <- data.frame("Project" = c("Cass River", "Cass River", "Cass River", "Godley River", "Godley River", "Godley River", "Tasman River", "Tasman River", "Tasman River"), 
                 "Month" = c("2019_Apr", "2019_Mar", "2019_May","2019_Mar", "2019_Apr", "2019_May", "2019_Mar", "2019_Apr", "2019_May"), 
                 "Sum" = as.integer(c("66", "3", "42", "0", "23", "7", "18", "70", "12")))

#Set the order of the months
df <- df %>% mutate(Month = factor(Month, levels = c("2019_Mar", "2019_Apr", "2019_May")))

df %>% 
  ggplot(aes(x = Month, y = Sum, group = Project)) +
     geom_point(aes(color = Project))+
     geom_path(aes(color = Project))+
     theme_classic() +
     theme(axis.text.x = element_text(angle = 90)) +
     xlab("\nDate") + 
     ylab("Total number of hedgehogs")

Answer 1

我不确定您的预期结果，以及您为什么使用geom_path。此外，您的原始数据和代码无法在我的机器上重现 OP 中的图形。

我们为x 轴使用数字变量可能会有所帮助。我用zoo::as.yearmon()。正如@Z.Lin 所建议的，我还将geom_path 替换为geom_line。如果这没有帮助，请告诉我，我会删除它。

library(zoo)
df$Month <- as.yearmon(str_replace(df$Month, "_", "-"), "%Y-%B")

df %>% 
  ggplot(aes(x = Month, y = Sum, color = Project)) +
  geom_point()+
  geom_line() + 
#  geom_path(aes(color = Project))+
  theme_classic() +
  theme(axis.text.x = element_text(angle = 90)) +
  xlab("\nDate") + 
  ylab("Total number of hedgehogs")