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("corrientes.xlsx",sheet = 2)
head(datos1,3)
## # A tibble: 3 × 1
##   corrientes
##        <dbl>
## 1       99.2
## 2      130. 
## 3      327.

Grafico

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

interpretar:el grafico demuestra del producto interno bruto a precios bajos muestra un crecimiento lento en los años 80 y 90 pero a partir del 2000 se acelera de forma sostenida y con mayor fuerza despues del 2005pese a algunas caidas puntuales la tendencia general es claramente ascendente reflejando una fuerte expancion economica.

Pronostico

d1sw=HoltWinters(d1s,gamma = F)
d1sp=predict(d1sw,3)
d1sp
## Time Series:
## Start = 2025 
## End = 2027 
## Frequency = 1 
##           fit
## [1,] 286.0496
## [2,] 296.5767
## [3,] 307.1039
plot(d1sw,d1sp,main="Oferta final")

Periodo=seq(1980,2027,1)
Oferta_Millones=rbind(d1s,d1sp)
Dato=c(rep("Real",45),rep("Pronosticado",3))
Datos_corriente=data.frame(Periodo,Oferta_Millones,Dato)
write_xlsx(Datos_corriente,"dato_corriente.xlsx")
ggplot(Datos_corriente,
  aes(x=Periodo,y=Oferta_Millones,col=Dato))+
  geom_line()+
  geom_point()+
  theme_bw()

interpretar:El gráfico muestra la evolución en la que el producto interno bruto es en el tiempo, diferenciando los valores reales en el azul y los pronosticados en el rojo Se observa que desde 1980 hasta mediados de los 90 el crecimiento fue lento pero a partir del 2000 se acelera de manera notable alcanzando un fuerte incremento después de 2010 en los últimos años, aunque existen pequeñas caídas o fluctuaciones la tendencia general sigue siendo ascendente estos datos pronosticados prolongan esa trayectoria creciente indicando que se espera que el producto interno bruto continúe aumentando en el futuro