---
title: "Dashboard Tarea"
subtitle: flexdashboard en RMarkdown
author: "Francisco Morales"
date: "`r Sys.Date()`"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source: embed
    social: menu
    self_contained: no
    code_download: TRUE
---

```{r setup, include=FALSE}
library(flexdashboard)

library(ggplot2)

library(datos)

```

# Definición y Conceptos {data-icon="fa-align-justify"}

## {.tabset}

### Definición

El Balanced Scorecard o Cuadro de Mando Integral, es una metodología de gestión estratégica utilizada para definir y hacer seguimiento a la estrategia de una organización.

Es una metodología, creada por Robert Kaplan y David Norton, permite estructurar los objetivos estratégicos de forma dinámica e integral para ponerlos a prueba según una serie de indicadores que evalúan el desempeño de todas las iniciativas y los proyectos necesarios para lograr su cumplimiento satisfactorio. Le puede resultar útil nuestro resúmen sobre el Cuadro de Mando Integral.

El Balanced Scorecard se basa en un correcto equilibrio y alineación entre los elementos de la estrategia global y los elementos operativos de la misma segun sus clasificaciones:

            Financiero

            Cliente

            Visión y Estrategia

            Procesos Internos del Negocio

            Aprendizaje y Crecimiento







### caso


| 2022          | Enero         | Febrero       | Marzo         | Abril         |
|-------------- |-------------  |-------------  |-------------  |-------------  |
| Ingreso       | 219.647.199   | 219.245.000   | 224.731.849   | 66.714.120    |
| Costo         | 167.851.300   | 162.437.660   | 164.751.487   | 134.131.214   |
| Depresiacion  | 18.927.145    | 18.925.731    | 18.926.500    | 18.927.510    |
| Utilidad      | 32.868.754    | 37.881.609    | 41.053.862    | -86.344.604   |


# Gráficos de Aplicacion {data-icon="fa-ruler"}

Column {data-width=333}
-----------------------------------------------------------------------

### Gráfico de Tendencia

```{r}
ggplot(data = diamantes)+
  geom_bar(mapping = aes(x=quilate),fill="blue", color="red")
```

Column {data-width=333}
-----------------------------------------------------------------------

### Grafico de Ingreso

```{r}
ggplot(data=diamantes)+
  geom_bar(mapping = aes(x=corte, y=..prop.., group=1),fill="blue")
```

Column {data-width=333}
-----------------------------------------------------------------------

### Gráfico de Gauss

```{r}
ggplot(data=diamantes)+
  geom_bar(mapping = aes(x=tabla, y=..prop.., group=3),fill="green")
```