Untitled

library(TSstudio)
library(tseries)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

library(highcharter)
library(readxl)

df <- read_excel("C:/Users/wsand/Dropbox/MINSALUD/Agosto/THS mes a mes/data_ths_mes_mes.xlsx", 
    sheet = "Hoja3")

paste("Perfil", colnames(df)[2])

## [1] "Perfil A01 - AUXILIAR ADMINISTRATIVO EN SALUD"

z1=ts(df[,2], start = c(2011,1), frequency = 12)
par(mfrow=c(1,2))
ts_plot(z1, title = colnames(df)[2] )

ts_seasonal(z1, type = "all",title = colnames(df)[2])

for (i in seq(2,4)) {
  print(paste("Perfil", colnames(df)[i]))
  z1=ts(df[,i], start = c(2011,1), frequency = 12)
  p <- ts_plot(z1, title = paste("Serie Temporal de",
                                 colnames(df)[i]))
  print(p)  # Imprimir explícitamente el gráfico
}

## [1] "Perfil A01 - AUXILIAR ADMINISTRATIVO EN SALUD"
## [1] "Perfil A02 - AUXILIAR EN ENFERMERÍA"
## [1] "Perfil A03 - AUXILIAR EN SALUD ORAL"