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("PRECIOS DE MERCADO.xlsx",sheet = 2)
head(datos1,3)
## # A tibble: 3 × 1
##   `PRECIOS DE MERCADO`
##                  <dbl>
## 1                 111.
## 2                 144.
## 3                 358.

Grafico

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

Interpretacion: El gráfico muestra la evolución de los precios de mercado a lo largo del tiempo, desde 1980 hasta 2025. Se observa un crecimiento lento y estable en las primeras décadas, pero a partir del año 2000 la tendencia se vuelve más pronunciada, mostrando un incremento acelerado en los precios. Entre 2010 y 2020 el crecimiento es muy fuerte, aunque con algunas caídas temporales, y en los últimos años la tendencia continúa al alza. En general, el gráfico refleja un comportamiento de crecimiento sostenido con mayor intensidad en el periodo reciente.

Pronostico

d1sw=HoltWinters(d1s,gamma = F)
d1sp=predict(d1sw,3)
d1sp
## Time Series:
## Start = 2025 
## End = 2027 
## Frequency = 1 
##           fit
## [1,] 333.2843
## [2,] 344.3753
## [3,] 355.4662
plot(d1sw,d1sp,main="oferta final: 1980:2024")

Guardar datos

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")

Ggplot2

ggplot(Datos_corriente,
       aes(x=Periodo,y=Oferta_Millones,col=Dato))+
  geom_line()+
  geom_point()+
  theme_bw()

Interpretacion: El gráfico muestra la evolución de la oferta en millones a lo largo del tiempo, desde 1980 hasta 2025, diferenciando entre los datos reales (en azul) y los datos pronosticados (en rojo). Se observa que la oferta creció lentamente en las dos primeras décadas, pero a partir del año 2000 el crecimiento se aceleró con fuerza, alcanzando un ritmo mucho más elevado. Aunque entre 2015 y 2020 se presentan pequeñas caídas y fluctuaciones, la tendencia general sigue siendo positiva. Finalmente, las proyecciones hacia adelante indican que la oferta continuará aumentando, manteniendo el mismo comportamiento ascendente que en los últimos años.