Graficos estadísticos de los retornos de 5 divisas

library(readr)
library(tidyverse)
RetornosDivisas <- read.csv(file="tablareturn_csv.csv", sep=";")
Divisas<-read.csv(file="tabla_csv.csv", sep=";")
Toboxplot <- read.csv(file="ToBoxPlots.csv", sep=";")
RetornoPromedio <- read.csv(file="RetornoProm.csv", sep=";")

Tabla de retornos diarios por Divisa

RetornosDivisas

Resumen de retornos diarios por divisas (%)

summary(RetornosDivisas*100)

  PESO_CHILENO         PESO_COLOM           PESO_MEX             SOL                 REAL          
 Min.   :-3.533000   Min.   :-6.177000   Min.   :-6.32500   Min.   :-2.142000   Min.   :-8.005000  
 1st Qu.:-0.341000   1st Qu.:-0.321250   1st Qu.:-0.39500   1st Qu.:-0.098000   1st Qu.:-0.501250  
 Median : 0.000000   Median : 0.000000   Median :-0.01700   Median : 0.000000   Median : 0.000000  
 Mean   : 0.003676   Mean   :-0.004942   Mean   : 0.01332   Mean   :-0.009172   Mean   : 0.006542  
 3rd Qu.: 0.323250   3rd Qu.: 0.285250   3rd Qu.: 0.37600   3rd Qu.: 0.065000   3rd Qu.: 0.454000  
 Max.   : 4.737000   Max.   : 5.260000   Max.   : 8.20000   Max.   : 2.296000   Max.   : 7.382000  

KERNEL DE DENSIDAD DE LAS 5 DIVISAS

ggplot() + 
  geom_density(data = Toboxplot, mapping = aes(x=Retornos, y=..density.., color = Divisas))+
  scale_color_manual(values = c("blue","red","black","magenta","orange"))

LOS HISTOGRAMAS DE DENSIDAD DE ABAJO SON DE 30 INTERVALOS DE CLASE

Kernel de Densidad del PESO CHILENO

Dchil <- grep("PESO_CHILENO", Toboxplot$Divisas)
DivCHIL <- Toboxplot[Dchil,]
ggplot(data = DivCHIL) + 
  geom_density(mapping = aes(x=Retornos, y=..density..), color="green", size=2)

Histograma de Densidad del PESO CHILENO

Dchil <- grep("PESO_CHILENO", Toboxplot$Divisas)
DivCHIL <- Toboxplot[Dchil,]
ggplot(data = DivCHIL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="green", bins=30)

Kernel de Densidad del PESO COLOMBIANO

Dcol <- grep("PESO_COLOM", Toboxplot$Divisas)
DivCOL <- Toboxplot[Dcol,]
ggplot(data = DivCOL) + 
  geom_density(mapping = aes(x=Retornos, y=..density..), color="red", size=2)

Histograma de Densidad del PESO COLOMBIANO

Dcol <- grep("PESO_COLOM", Toboxplot$Divisas)
DivCOL <- Toboxplot[Dcol,]
ggplot(data = DivCOL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="red", bins=30)

Kernel de Densidad del PESO MEXICANO

Dmex <- grep("PESO_MEX", Toboxplot$Divisas)
DivMEX <- Toboxplot[Dmex,]
ggplot(data = DivMEX) + 
  geom_density(mapping = aes(x=Retornos, y=..density..), color="yellow", size=2)

Histograma de Densidad del PESO MEXICANO

Dmex <- grep("PESO_MEX", Toboxplot$Divisas)
DivMEX <- Toboxplot[Dmex,]
ggplot(data = DivMEX) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="yellow", bins=30)

Kernel de Densidad del SOL

Dsol <- grep("SOL", Toboxplot$Divisas)
DivSOL <- Toboxplot[Dsol,]
ggplot(data = DivSOL) + 
  geom_density(mapping = aes(x=Retornos, y=..density..), color="orange", size=2)

Histograma de Densidad del SOL

Dsol <- grep("SOL", Toboxplot$Divisas)
DivSOL <- Toboxplot[Dsol,]
ggplot(data = DivSOL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="orange", bins=30)

Kernel de Densidad del REAL

Dreal <- grep("REAL", Toboxplot$Divisas)
DivREAL <- Toboxplot[Dreal,]
ggplot(data = DivREAL) + 
  geom_density(mapping = aes(x=Retornos, y=..density..), color="magenta", size=2)

Histograma de Densidad del REAL

Dreal <- grep("REAL", Toboxplot$Divisas)
DivREAL <- Toboxplot[Dreal,]
ggplot(data = DivREAL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="magenta", bins=30)

Boxplots de las 5 divisas

ggplot(data = Toboxplot) + 
  geom_boxplot(mapping = aes(x = Divisas, y = Retornos), fill="beige")

Boxplots del promedio de las 5 divisas

ggplot(data = RetornoPromedio) + 
  geom_boxplot(mapping = aes(x= "",y=RetorProm), fill="beige")

QQPlot del PESO CHILENO

ggplot(data=DivCHIL) +
  geom_qq(mapping=aes(sample=Retornos),size=2, col="green", shape=1)+
  geom_qq_line(mapping = aes(sample=Retornos))+
  scale_x_continuous(name="Cuantiles teoricos") +
  scale_y_continuous(name="Cuantiles de la muestra")+
  theme_bw()

QQPlot del PESO COLOMBIANO

ggplot(data=DivCOL) +
  geom_qq(mapping=aes(sample=Retornos),size=2, col="red", shape=1)+
  geom_qq_line(mapping = aes(sample=Retornos))+
  scale_x_continuous(name="Cuantiles teoricos") +
  scale_y_continuous(name="Cuantiles de la muestra")+
  theme_bw()

QQPlot del PESO MEXICANO

ggplot(data=DivMEX) +
  geom_qq(mapping=aes(sample=Retornos),size=2, col="yellow", shape=1)+
  geom_qq_line(mapping = aes(sample=Retornos))+
  scale_x_continuous(name="Cuantiles teoricos") +
  scale_y_continuous(name="Cuantiles de la muestra")+
  theme_bw()

QQPlot del SOL

ggplot(data=DivSOL) +
  geom_qq(mapping=aes(sample=Retornos),size=2, col="orange", shape=1)+
  geom_qq_line(mapping = aes(sample=Retornos))+
  scale_x_continuous(name="Cuantiles teoricos") +
  scale_y_continuous(name="Cuantiles de la muestra")+
  theme_bw()

QQPlot del REAL

ggplot(data=DivREAL) +
  geom_qq(mapping=aes(sample=Retornos),size=2, col="magenta", shape=1)+
  geom_qq_line(mapping = aes(sample=Retornos))+
  scale_x_continuous(name="Cuantiles teoricos") +
  scale_y_continuous(name="Cuantiles de la muestra")+
  theme_bw()

QQPlot del promedio de las 5 monedas

ggplot(data=RetornoPromedio) +
  geom_qq(mapping=aes(sample=RetorProm),size=2, col="blue", shape=1)+
  geom_qq_line(mapping = aes(sample=RetorProm))+
  scale_x_continuous(name="Cuantiles teoricos") +
  scale_y_continuous(name="Cuantiles de la muestra")+
  theme_bw()

LOS HISTOGRAMAS DE ABAJO SON DE 15 INTERVALOS DE CLASE (DENSIDAD Y CANTIDAD)

Histograma de Densidad del PESO CHILENO

Dchil <- grep("PESO_CHILENO", Toboxplot$Divisas)
DivCHIL <- Toboxplot[Dchil,]
ggplot(data = DivCHIL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="green", bins=15)

Histograma de Cantidad o Frecuencia del PESO CHILENO

Dchil <- grep("PESO_CHILENO", Toboxplot$Divisas)
DivCHIL <- Toboxplot[Dchil,]
ggplot(data = DivCHIL) + 
  geom_histogram(mapping = aes(x=Retornos), color="black", fill="green", bins=15)

Histograma de Densidad del PESO COLOMBIANO

Dcol <- grep("PESO_COLOM", Toboxplot$Divisas)
DivCOL <- Toboxplot[Dcol,]
ggplot(data = DivCOL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="red", bins=15)

Histograma de Cantidad o Frecuencia del PESO COLOMBIANO

Dcol <- grep("PESO_COLOM", Toboxplot$Divisas)
DivCOL <- Toboxplot[Dcol,]
ggplot(data = DivCOL) + 
  geom_histogram(mapping = aes(x=Retornos), color="black", fill="red", bins=15)

Histograma de Densidad del PESO MEXICANO

Dmex <- grep("PESO_MEX", Toboxplot$Divisas)
DivMEX <- Toboxplot[Dmex,]
ggplot(data = DivMEX) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="yellow", bins=15)

Histograma de Cantidad o Frecuencia del PESO MEXICANO

Dmex <- grep("PESO_MEX", Toboxplot$Divisas)
DivMEX <- Toboxplot[Dmex,]
ggplot(data = DivMEX) + 
  geom_histogram(mapping = aes(x=Retornos), color="black", fill="yellow", bins=15)

Histograma de Densidad del SOL

Dsol <- grep("SOL", Toboxplot$Divisas)
DivSOL <- Toboxplot[Dsol,]
ggplot(data = DivSOL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="orange", bins=15)

Histograma de Cantidad o Frecuencia del SOL

Dsol <- grep("SOL", Toboxplot$Divisas)
DivSOL <- Toboxplot[Dsol,]
ggplot(data = DivSOL) + 
  geom_histogram(mapping = aes(x=Retornos), color="black", fill="orange", bins=15)

Histograma de Densidad del REAL

Dreal <- grep("REAL", Toboxplot$Divisas)
DivREAL <- Toboxplot[Dreal,]
ggplot(data = DivREAL) + 
  geom_histogram(mapping = aes(x=Retornos, y=..density..), color="black", fill="magenta", bins=15)

Histograma de Cantidad o Frecuencia del REAL

Dreal <- grep("REAL", Toboxplot$Divisas)
DivREAL <- Toboxplot[Dreal,]
ggplot(data = DivREAL) + 
  geom_histogram(mapping = aes(x=Retornos), color="black", fill="magenta", bins=15)

Distribucion empirica de todas las divisas

ggplot(Toboxplot, aes(x = Retornos)) +
  stat_ecdf(aes(color = Divisas,linetype = Divisas), 
              geom = "step", size = 1.5) +
  scale_color_manual(values = c("green","red","yellow","orange","magenta"))+
  labs(y = "f(Retorno)")

Distribucion empirica del PESO CHILENO

ggplot(DivCHIL, aes(x = Retornos)) +
  stat_ecdf(aes(color = Divisas,linetype = Divisas), 
              geom = "step", size = 2) +
  scale_color_manual(values = c("green"))+
  labs(y = "f(Retorno)")

Distribucion empirica del PESO COLOMBIANO

ggplot(DivCOL, aes(x = Retornos)) +
  stat_ecdf(aes(color = Divisas,linetype = Divisas), 
              geom = "step", size = 2) +
  scale_color_manual(values = c("red"))+
  labs(y = "f(Retorno)")

Distribucion empirica del PESO MEXICANO

ggplot(DivMEX, aes(x = Retornos)) +
  stat_ecdf(aes(color = Divisas,linetype = Divisas), 
              geom = "step", size = 2) +
  scale_color_manual(values = c("yellow"))+
  labs(y = "f(Retorno)")

Distribucion empirica del SOL

ggplot(DivSOL, aes(x = Retornos)) +
  stat_ecdf(aes(color = Divisas,linetype = Divisas), 
              geom = "step", size = 2) +
  scale_color_manual(values = c("orange"))+
  labs(y = "f(Retorno)")

Distribucion empirica del REAL

ggplot(DivREAL, aes(x = Retornos)) +
  stat_ecdf(aes(color = Divisas,linetype = Divisas), 
              geom = "step", size = 2) +
  scale_color_manual(values = c("magenta"))+
  labs(y = "f(Retorno)")