Determinación del perfil coincidente - inflación instantanea Nicaragua

##===========================================================================##
## Paso 1: Limpiar espacio de trabajo e instalar paquetes                    ##
##===========================================================================##

install.packages("Coinprofile")

Error in install.packages : Updating loaded packages

install.packages("zoo")

Error in install.packages : Updating loaded packages

install.packages("stats")

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/

Warning in install.packages :
  package ‘stats’ is in use and will not be installed

install.packages("plyr")

Error in install.packages : Updating loaded packages

# install.packages("coin")
# install.packages("Rdpack")
# install.packages("exactRankTests")
install.packages("ggplot2")

Error in install.packages : Updating loaded packages

library(Coinprofile)
library(zoo)
library(stats)
library(plyr)
library(ggplot2)
library(tidyverse)
library(dplyr)
library(readxl)

##===========================================================================##
## Paso 2: Importar las series
##===========================================================================##

inf_instxl <- read_excel("C:/Users/Hp/OneDrive/Escritorio/Inflación instantanea/Perfil coincidente infinst nic/Inflación instantanea base limpia.xlsx")


df_infinst <- inf_instxl %>%
  mutate(
    year = as.numeric(substr(Fecha, 1, 4)),
    month = as.numeric(substr(Fecha, 6, 7)),
    date = as.Date(paste0(year, "-", month, "-01")),
    quarter = quarter(date)
  )


df_infinst <- df_infinst %>%
  filter(
    year(date) != 2011 |        # mantener todo lo que no sea 2011
      !(                      # o si es 2011, solo mantener si NO son todos NA
        is.na(INFLATION_A0) &
        is.na(INFLATION_A1) &
        is.na(INFLATION_A2) &
        is.na(INFLATION_A3)
      )
  )

df_infinstfilt <- df_infinst %>% #filtrar 2025 por desbalance en la cantidad de años
  filter(
  year(date) != 2025)


##Para gráficos

# Reorganizar a largo
df_infinstlong <- df_infinst %>%
  select(Fecha, date, INFLATION_CONVENCIONAL, starts_with("INFLATION_A")) %>%
  pivot_longer(
    cols = -c(Fecha, date),
    names_to = "Serie",
    values_to = "Inflacion"
  ) 

df_pairs <- bind_rows(
  df_infinst %>%
    select(date, INFLATION_CONVENCIONAL, INFLATION_A0) %>%
    pivot_longer(cols = -date, names_to = "Serie", values_to = "Inflacion") %>%
    mutate(Grupo = "A0"),
install.packages("plyr")

  df_infinst %>%

Error: unexpected symbol in:
"
  df_infinst"

ggplot(df_pairs, aes(x = date, y = Inflacion, color = Serie)) +
  geom_line(size = 0.5, linetype="longdash") +
  #geom_point(color="black", size=0.5)+
  facet_wrap(~ Grupo, ncol = 2) +
  labs(
    title = "Comparación de la inflación interanual con la inflación instantanea",
    subtitle = "A0= K cero",
    x = "Fecha",
    y = "Inflación (%)",
    color = "Serie"
  ) +
  theme_classic() +
  theme(
    #strip.text = element_text(face = "bold"),
    # axis.text.x = element_text(angle = 45, hjust = 1),
    legend.position = ("bottom")
  )

Aviso: Removed 72 rows containing missing values or values outside the scale range (`geom_line()`).