Librerias

library(readxl)
library(writexl)
library(ggplot2)

Cargar datos

datos1=read_excel("domesticos.xlsx",sheet = 2)
head(datos1,3)
## # A tibble: 3 × 1
##   domesticos
##        <dbl>
## 1      0.668
## 2      0.908
## 3      2.07

Graficos

d1s = ts(datos1, start = 1980, frequency = 1)
plot(d1s)

## Interpretacion

La grafica de la serie de tiempo refleja la evolución de la actividad económica de los servicios domesticos desde 1980 hasta 2024. En ella se observa una tendencia general de crecimiento sostenido a lo largo de las decadas, lo que puede asociarse con factores estructurales como el aumento poblacional, la urbanizacion y la creciente demanda de servicios en los hogares.Sin embargo, la dinamica no ha sido completamente lineal. Durante el periodo analizado se identifican fluctuaciones que responden a coyunturas economicas especificas. Por ejemplo, se aprecia una notable caida alrededor del año 2020, la cual coincide con el impacto de la pandemia de COVID-19. Este evento ocasionop una reduccion abrupta en la contratacion de servicios domesticos debido a las restricciones de movilidad, la incertidumbre laboral y la disminucion temporal de la actividad economica en general.Posteriormente, a partir de 2021, la serie muestra una recuperación progresiva, reflejando la reactivacin economica y el restablecimiento paulatino de los niveles de consumo en los hogares. Esta recuperacipn no es inmediata ni explosiva, sino más bien gradual, lo cual es consistente con la forma en que la economia suele retomar sus niveles de equilibrio tras un choque externo tan fuerte

Pronostico

d1sw = HoltWinters(d1s, gamma = F)
d1sp = predict(d1sw, 3)
plot(d1sw, d1sp, main = "domesticos final: 1980:2024")

## Expotar datos

periodo = seq(1980, 2027, 1)
domesticos=rbind(d1s,d1sp)
Dato=c(rep("Real",45),rep("Pronosticado",3))
Datos_domesticos=data.frame(periodo,domesticos,Dato)
write_xlsx(Datos_domesticos,"datos_oferta.xlsx")

Ggplot2

ggplot(Datos_domesticos,
       aes(x=periodo,y=domesticos,col=Dato))+
  geom_line()+
  geom_point()+
  theme_bw()

Interpretacion

En la grafica se muestra que el pronostico realizado con el modelo Holtwinters, los resultados sugieren que la tendencia de crecimiento observada antes de la pandemia continuara en los proximos tres años. El modelo proyecta un incremento moderado y sostenido, lo que permite anticipar que la demanda de servicios domesticos se consolidara nuevamente en el corto plazo