将tibble转换为ts对象

我正试图从csv文件导入数据,将其转换为tibble,然后转换为ts对象。 我的问题是,当我绘制ts对象时,它每个月都会绘制一条单独的线,而我希望用一条线来显示多年的季节性。我无法提供数据,但我附上了以下代码和图表:

tou<-read_csv("tou_mru.csv")%>%
  rename(month=`Month of arrival`)%>%
  subset(month!="Year",)%>%
  pivot_longer(-month, names_to = "years")%>%
  pivot_wider(names_from = month)%>%
  subset(select=January:December)# this provides me with columns for each month 

tou_ts<-ts(data=tou,frequency=1,start=2009)
autoplot(tou_ts)

current plot with multiple lines, i need one with a single one