R语言ggplot2画折线图如何将横坐标排序

哪位大佬能告知在下，R语言ggplot2画折线图如何将横坐标月份排序？我将月份排序后，纵坐标的急救事件数没有随之变动该怎么搞？

1. dat1 <- data.frame(month=c(1,5,6,7,8,9,10,11,12,2,3,4),
   
2.                    event = c(925,817,837,742,1357,3248,3866,3448,3195,3276,
   
3.                              3404,3575))
   
4. library(tidyverse)
   
5. 
   
6. dat1%>%arrange(month)%>%
   
7.   ggplot(aes(month,event))+
   
8.   geom_path()+
   
9.   geom_smooth(method = 'loess')+
   
10.   theme_classic()

复制代码