---
title: "Dashboard Recursos PE"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
---

# Intro text {.sidebar}

Resumen de datos

```{r include = FALSE}


```

Página 1 {data-navmenu="Menu A", data-icon="fa-list"} 
=======================================================================

Columna 1 
-----------------------------------------------------------------------

### BOX

```{r}
library(ggplot2)
library(flexdashboard)
cortes <- table(diamonds$cut)

valueBox(value = cortes[1], 
         caption = "Fair", 
         icon = "fa-bomb", 
         color = "danger")
```

### Fair

```{r}
library(ggplot2)
library(flexdashboard)
cortes <- table(diamonds$cut)
cortes <- as.vector(round(cortes/sum(cortes),2)*100)

gauge(cortes[1], min = 0, max = 100, 
      symbol = '%', 
      gaugeSectors(success = c(30, 100), 
                   warning = c(21, 29), 
                   danger = c(0, 20)))
```

### Cuadro A

```{r}
library(dplyr)
library(tidyr)
ruta <- 'F:/UNI BUSSINES INTELLIGENCE/Data Analyst Advanced/DataDashboard'
setwd('F:/UNI BUSSINES INTELLIGENCE/Data Analyst Advanced/DataDashboard')
DataSetUprivada <-  read.table(paste(ruta, "/DataSetUprivadaBinarizada.csv",sep=""),header=TRUE,sep=";",stringsAsFactors = FALSE)
#colnames(DataSetUpublicaFRMTO)
DataSetUPRIVADAFRMTO <-transform(DataSetUprivada, 
                                 SEXO = as.factor(as.character(SEXO)),
                                 CarreraProfesional = as.factor(as.character(CarreraProfesional)),
                                 MODALIDAD_INGRESO = as.factor(as.character(MODALIDAD_INGRESO)),
                                 UBIG_NACIMIENTO = as.factor(as.character(UBIG_NACIMIENTO)),
                                 UBIG_RESIDENCIA = as.factor(as.character(UBIG_RESIDENCIA)),
                                 TIPO_VIVIENDA = as.factor(as.character(TIPO_VIVIENDA)),
                                 GradoInstruccionPapa = as.factor(as.character(GradoInstruccionPapa)),
                                 ProfesionPapa = as.factor(as.character(ProfesionPapa)),
                                 OcupacionPapa = as.factor(as.character(OcupacionPapa)),
                                 GradoInstruccionMama = as.factor(as.character(GradoInstruccionMama)),
                                 ProfesionMama = as.factor(as.character(ProfesionMama)),
                                 OcupacionMama = as.factor(as.character(OcupacionMama))
                                 ,categoriaBinarizada = as.factor(as.character(categoriaBinarizada)
                                                                  )
)
#Retiramos el campo Categoría
DataSetUPRIVADAFRMTO$categoria <- NULL
#Convertimos a Factor a la varaible Objetivo
levels(DataSetUPRIVADAFRMTO$categoriaBinarizada) <- c("NO","SI")
#Por útlimo remobramos el nombre de la Variable objetivo
colnames(DataSetUPRIVADAFRMTO)[26] <- "DESERTOR"

DataSetUPRIVADAFRMTO[,'AvgSinAplzAcum'] <- as.numeric(sub(",", ".",  DataSetUPRIVADAFRMTO[,'AvgSinAplzAcum']
                                                          , fixed = TRUE))
DataSetUPRIVADAFRMTO[,'AvgConAplzAcum'] <- as.numeric(sub(",", ".",  DataSetUPRIVADAFRMTO[,'AvgConAplzAcum']
                                                          , fixed = TRUE))
DataSetUPRIVADAFRMTO[,'AvgVezMatriAcum'] <- as.numeric(sub(",", ".",  DataSetUPRIVADAFRMTO[,'AvgVezMatriAcum']
                                                           , fixed = TRUE))
DataSetUPRIVADAFRMTO[,'ProbabDesercion'] <- as.numeric(sub(",", ".",  DataSetUPRIVADAFRMTO[,'ProbabDesercion']
                                                           , fixed = TRUE))
hist(DataSetUPRIVADAFRMTO$SemestresEstudiadosAcum,col="orange"
     ,xlab="Cantidad de Semestres Estudiados Acumulado"
     ,ylab="Frecuencia Absoluta",main="Semestres Estudiados Acumulados"
     ,breaks =12)
```


Columna 2 {.tabset .tabset-fade}
-----------------------------------------------------------------------

### Cuadro B

```{r}
dplyr::glimpse(DataSetUPRIVADAFRMTO)
```


### Cuadro C

```{r}

```


Página 2 {data-navmenu="Menu B"}
=======================================================================

```{r}
hist(DataSetUPRIVADAFRMTO$SemestresEstudiadosAcum,col="orange"
     ,xlab="Cantidad de Semestres Estudiados Acumulado"
     ,ylab="Frecuencia Relativa",main="Semestres Estudiados Acumulados"
     ,breaks =12,probability =TRUE)
lines(density(DataSetUPRIVADAFRMTO$SemestresEstudiadosAcum),col="red", lwd=3)
abline(v = mean(DataSetUPRIVADAFRMTO$SemestresEstudiadosAcum), col = "red",lwd=3)
abline(v=median(DataSetUPRIVADAFRMTO$SemestresEstudiadosAcum), col = "blue",lwd=3)
```


Página 3 {data-navmenu="Menu B"}
=======================================================================

```{r fig.width=c(2, 3)}
hist(DataSetUPRIVADAFRMTO$AvgConAplzAcum,col="orange"
     ,xlab="Promedio de Notas CON Aplazados"
     ,ylab="Frecuencia Absoluta",main="Promedio de Notas CON Aplazados"
     ,breaks =10)
hist(DataSetUPRIVADAFRMTO$AvgConAplzAcum,col="orange"
     ,xlab="Promedio de Notas CON Aplazados"
     ,ylab="Frecuencia Relativa",main="Promedio de Notas CON Aplazados %"
     ,breaks =10,probability =TRUE)
lines(density(DataSetUPRIVADAFRMTO$AvgConAplzAcum),col="red", lwd=3)
abline(v = mean(DataSetUPRIVADAFRMTO$AvgConAplzAcum), col = "red",lwd=3)
abline(v=median(DataSetUPRIVADAFRMTO$AvgConAplzAcum), col = "blue",lwd=3)
```