Преобразование тиббла в объект ts

Question

Я пытаюсь импортировать данные из файла csv, преобразовать их в тиббл, а затем в объект 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)

текущий график с несколькими строками, мне нужен один с одним

Answer 1

Хорошо, я нашел ответ, оставив его здесь на случай, если кто-то столкнется с такой же ситуацией. Таким образом, функция ts работает только с вектором numeri c, что означает, что мне нужно было сначала преобразовать tibble в numeri c vector, а затем построить. (Сделано ниже очень грубо)

    autoplot(ts(as.vector(as.matrix(tou))[13:132],frequency = 12,start=2009))
#we select only 13: 132 because 1:12 is the month header which ts puts naturally