переименовать месяцы объекта ts в r

Question

Здравствуйте, у меня есть следующие данные объекта временного ряда

set.seed(2019)
serie <- ts(rpois(72,25), start = c(2012,1), frequency = 12)
serie
     Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
2012  28  22  36  21  26  27  24  26  32  26  29  16
2013  24  28  21  29  31  20  18  25  38  34  23  22
2014  37  25  28  31  21  25  28  26  29  25  23  23
2015  24  23  23  21  16  21  33  23  17  21  30  31
2016  20  23  23  27  23  28  27  23  31  36  25  20
2017  22  24  19  24  26  23  23  25  31  26  23  20

Мне нужно изменить имя объекта ts в r. По умолчанию месяцы на английском языке, но я хотел бы перевести их на испанский. Есть идеи как это сделать. Затем я оставляю вектор с именами, которые я хочу поместить в объект ts.

nom <- c("Ene","Feb","Mar","Abr","May","Jun","Jul","Ago","Sep","Oct","Nov","Dic")

Answer 1

print.ts использует .preformat.ts, что жесткие коды month.abb, который является вектором сокращенных английских названий месяцев, но мы можем использовать trace, чтобы установить month.abb в nom в верхней части этой функции:

trace(.preformat.ts, quote(month.abb <- nom), print = FALSE)
serie

давая:

     Ene Feb Mar Abr May Jun Jul Ago Sep Oct Nov Dic
2012  28  22  36  21  26  27  24  26  32  26  29  16
2013  24  28  21  29  31  20  18  25  38  34  23  22
2014  37  25  28  31  21  25  28  26  29  25  23  23
2015  24  23  23  21  16  21  33  23  17  21  30  31
2016  20  23  23  27  23  28  27  23  31  36  25  20
2017  22  24  19  24  26  23  23  25  31  26  23  20

Чтобы отключить его:

untrace(.preformat.ts)