Examen 2

Librerias

library(readxl)

## Warning: package 'readxl' was built under R version 4.5.1

library(writexl)

## Warning: package 'writexl' was built under R version 4.5.1

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.5.1

Cargar datos

datos1=read_excel("Datos examen 2.xlsx",sheet = 2)
head(datos1,3)

## # A tibble: 3 × 1
##   `SS ADMINISTRACION PÚBLICA`
##                         <dbl>
## 1                        12.5
## 2                        13.9
## 3                        28.6

Grafico

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

Interpretacion El grafico tiene una tendencia positiva a lo largo del tiempo sin embargo algo lenta hasta el año 2000, con un crecimiento sostenido y mas significativo a partir del año 2005 hasta el 2020 donde se observa una pequeña pausa, posterior a eso la tendencia continua creciendo,el modelo se ajusta mas como un modelo multiplicativo

Pronostico

d1sw=HoltWinters(d1s,gamma = F)
d1sp=predict(d1sw,3)
d1sp

## Time Series:
## Start = 2025 
## End = 2027 
## Frequency = 1 
##           fit
## [1,] 58835026
## [2,] 60943379
## [3,] 63051732

plot(d1sw,d1sp,main="SS administracion publica:1980:2024")

Guardar datos

Periodo=seq(1980,2027,1)
Oferta=rbind(d1s,d1sp)
Dato=c(rep("Real",45),rep("pronosticado",3))
Datos_oferta=data.frame(Periodo,Oferta,Dato)
write_xlsx(Datos_oferta,"datos_Ex2.xlsx")

Ggplot2

ggplot(Datos_oferta,
       aes(x=Periodo,y=Oferta,col=Dato))+
  geom_line()+
  geom_point()+
  theme_bw()

Interpretacion El grafico muestra un crecimiento lento al inicio y en el transcurso del tiempo apartir del 2005 con crecimiento acelerado se pronostica que en los proximos 3 años (Hasta el2027) continue con un pronostico de tendencia creciente.