答案 0 :(得分:1)
首先,您可以使用openxlsx
包读取数据:
library(openxlsx)
mydata <- read.xlsx("path to your xlsx")
然后,您可以使用tidyverse
包将数据转换为ts
对象:
library(tidyverse)
mydata %>%
mutate(Month = 1:n()) %>%
gather(Year, value, -Month) %>%
arrange(Year, Month) %>%
{ts(.$value, start = c(2013, 1), frequency = 12)}