if (FALSE) { # interactive()
# Example comparing multiple series
selic <- get_selic_rate(2020, 2024)
ipca <- get_ipca(2020, 2024)
igpm <- get_igpm(2020, 2024)
comparison_plot <- plot_series_comparison(
data_list = list(SELIC = selic, IPCA = ipca, IGPM = igpm),
y_vars = c("value", "value", "value"),
date_vars = c("date", "date", "date"),
scale_type = "index",
title = "Comparison of Brazilian Economic Indicators",
y_label = "Index (2020-01 = 100)",
language = "eng"
)
print(comparison_plot)
}
Run the code above in your browser using DataLab