library(ggplot2)
library(tidyverse)
library(readr)
library(zoo)
library(hrbrthemes)
library(plotly)
library(graphics)
library(viridis)
datos=read.csv("C:\\Users\\sarar\\Downloads\\datos.csv")
View(datos)
tabla=select(datos,LOCATION,TIME,Value)
View(tabla)
tabla$fecha=as.Date(as.yearmon(tabla$TIME))

data=read_csv("C:\\Users\\sarar\\Downloads\\datos2.csv")
View(data)
data=data.frame(data)
data$Flag.Codes=NULL
data$INDICATOR=NULL
data$SUBJECT=NULL
data$MEASURE=NULL
data$Flag.Codes=NULL
view(data)
newdata <- filter(data, 
                  LOCATION == "COL" | 
                  LOCATION == "CHL" | 
                  LOCATION == "ESP" |
                  LOCATION == "DEU" )

newdata2=data.frame(newdata)
  
newdata2<- filter(newdata2, FREQUENCY   == "A")

view(newdata2)

newdata2$TIME=as.numeric(newdata2$TIME)
newdata2$Value=as.numeric(newdata2$Value)
newdata2=tibble(newdata2)

Tasa de interes.

La tasa de interés es el precio del dinero, es decir, es el precio a pagar por utilizar una cantidad de dinero durante un tiempo determinado, por lo que definen lo mismo el costo de pedir prestado que la recompensa por ahorrar.

Las tasas de interés están predeterminadas y se miden en porcentaje, generalmente se expresan en términos anuales o mensuales.

Para este informe, se tomaron en cuenta las tasas de interés anuales y mensuales, de los siguientes países, Colombia, España, Chile y Alemania, con el propósito de estudiar los datos por medio de diferentes tipos de gráficos.

Evolución en el tiempo de la tasa de interes (2012-2022)

Se utilizó el diagrama de líneas para estudiar la evolución anual de la tasa de interés de los países anteriormente mencionados, a través de los años 2012 a 2022.

gl <- ggplot(tabla,aes(x=fecha, y=Value, color=LOCATION)) +
  geom_line(size=1)+
  scale_x_date(date_breaks = "1 year",
               labels = scales::date_format("%Y"))+
  scale_y_continuous(limits = c(-1,9.5),
                     breaks=seq(0,9.5,1)) +
  labs(title = "Tasa de interes por pais",
       subtitle = "Total % anual (2012 - 2022)",
       caption = "fuente: OECD data",
       x="Año", y = "Tasa de interes %") 
ggplotly(gl)

Se puede observar en la gráfica anterior que los países Alemania y España tienen el mismo comportamiento a través de los años, obteniendo los mismos valores de tasa de interés cada año, por tal motivo, se encuentra una línea sobre la otra.

Por otro lado, Colombia muestra que alrededor de los años 2012 a 2021, es el país con la tasa de interés más alta a comparación con los demás países estudiados, además, del año 2021 al 2022, aumento considerablemente alcanzando una tasa alrededor de 8.5%

De Chile se observa que no hay registro de datos desde el año 2012 hasta el 2016, y al igual que Colombia, del año 2021 al 2022 aumenta considerablemente alcanzando una tasa alrededor de 9.21% siendo la más alta en ese año a comparación de los demás países.

Diagrama de cajas y bigotes.

g2<-ggplot(newdata2,aes(x=LOCATION, y=Value, fill=LOCATION)) +
  geom_boxplot() +
  scale_fill_viridis(discrete = TRUE) +
  theme_ipsum() +
  theme(legend.position="none", plot.title = element_text(size=13)) +
  labs(title = "Diagrama de cajas tasa de interes",
       caption = "fuente: OECD data",
       x="Paises", y = "Tasa de interes %") +
  geom_jitter(color="black", size=0.7, alpha=0.5)
ggplotly(g2)

En el diagrama de cajas podemos observar la mediana de la tasa de interés de cada país, se puede percibir que Alemania posee la mediana más centralizada en comparación al resto de países, esto quiere decir que los datos que se poseen de este país, son simétricos. Por lo contrario, Colombia posee la mediana menos centralizada del resto de paises y esto quiere decir que los datos que se poseen de este país están sesgados.

Por otro lado también podemos observar los puntos atípicos de cada uno de los países, podemos ver que el país que más tiene puntos atípicos es Alemania. En el caso de Chile, es el país que posee menos puntos atípicos.

Diagrama de dispersión.

fig <- plot_ly(data = newdata2, x = ~TIME, y = ~Value, color = ~LOCATION) 
fig

En el diagrama de dispersión que tiene como objetivo comparar Tasa de interés Vs Tiempo. Se puede observar claramente que todos los países tienden a disminuir su tasa de interés con el paso de los años, por ejemplo, Colombia en los años 90 tenía una tasa de interés por encima de 30, y si miramos, después del año 2020 su tasa de interés está ubicada por debajo de 10. En este orden de ideas si analizamos con atención, todos los países tienden a el mismo comportamiento, no quiere decir que tengan la misma tasa de interés, pero sin embargo siguen la misma linea de tendencia.