Librerias

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

Cargar datos

datos1=read_excel("examenhoy.xlsx",sheet = 3)
head(datos1,3)
## # A tibble: 3 × 1
##   `A. INDUSTRIAS`
##             <dbl>
## 1            86.0
## 2           115. 
## 3           296.

Grafico

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

interpretacion: el grafico muestra una serie de datos industriales desde 1980 hasta 2024 con frecuencia anual, se nota una tendencia claramente creciente, lo que indica un aumento sostenible en los valores a los largo del tiempo. en los años 1980 a 1995 el crecimiento fue mas lento y estable, a partir del año 2000 se aprecia una aceleracion el el crecimiento con algunos desensos leves en algunos periodoscomo el 2015 y 2020 peor manteniendo una trayectoria positiva o creciente. Este grafico tambien muestra que es de modelo aditivo ya que como se ve de forma creciente no hay ciclos en los cuales se repite la tendencia. tambien vemos que no tiene una estacionalidad marcada o ciclos definidos.

Pronostico

d1sw=HoltWinters(d1s,gamma = F)
d1sp=predict(d1sw,3)
d1sp
## Time Series:
## Start = 2025 
## End = 2027 
## Frequency = 1 
##           fit
## [1,] 224.5349
## [2,] 232.4789
## [3,] 240.4230
plot(d1sw,d1sp,main="PIB PRONOSTICADO: 1980:2027")

Guardar datos

Periodo=seq(1980,2027,1)
industria=rbind(d1s,d1sp)
Dato=c(rep("Real",45),rep("Pronosticado",3))


Datos_industria=data.frame(Periodo,industria,Dato)
write_xlsx(Datos_industria,"exam.xlsx")

Ggplot2

ggplot(Datos_industria,
       aes(x=Periodo,y=industria,col=Dato))+
  geom_line()+
  geom_point()+
  theme_bw()

interpretacion:

el grafico demuestra que desde el año 1980 se da una tendencia creciente hasta la actualidad, los datos de color azul son los datos reales y los de color rojo es el pronostico a futuro. Se observa una tendencia creciente sostenida, con incrementos mas marcados a partir del 2000, aunque existen ciertas fluctuaciones en algunos periodos como el 2015 y 2020, el comportamiento general refleja un crecimiento estable a largo plazo sin caidas prolongadas. no se ven ciclos regulares, lo que indica que la serie no tiene estacionalidad definida sino que tiene variaciones puntuales. el modelo tiene un patron aditivo.