Попробуйте этот метод:
library("openxlsx")
library("tsibble")
df <- data.frame(read.xlsx("Data.xlsx"))
tsibble <- as_tsibble(df, index = Date)
#Fuction to convert Date column to date format
tsibble$Date <- as.Date(tsibble$Date, origin = "1989-12-30")