---
title: "Proyecto Final"
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
---

```{python,include=FALSE}
import folium as fl

from folium.plugins import FloatImage
```

```{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







### Datos de Caso

FGS Maquinarias estuvo sin Jefe Control de Gestion y sin Gerente de Maquinarias, por lo que muchos servicios no pudieron prestarse, pues no habia quien se hiciera cargo de cada prestacion de servicio a las obras de construccion, a raiz de esto se facilitaron los manifiestos de Indicadores Financieros.

Los ingresos de cada centro de costo es relativamente lo mismo en todos los meses bordeando el 10% al 15% rentabilidad mensual.


A continuacion se detalla el estado de resultado del año 2022 a la fecha.

| 2022                        	| Enero       	| Febrero     	| Marzo       	| Abril       	| Mayo        	|
|-----------------------------	|-------------	|-------------	|-------------	|-------------	|-------------	|
| Ingresos de Explotación     	| 346.788.863 	| 330.073.007 	| 331.633.271 	| 341.773.880 	| 381.496.314 	|
| Costos de Explotación       	| 257.415.849 	| 249.475.001 	| 261.328.077 	| 242.169.747 	| 213.479.078 	|
| Gastos de Administracion    	| -11.926.418 	| -9.723.134  	| -15.069.062 	| -13.433.675 	| -42.722.361 	|
| Amortización y Depresiación 	| -13.549.909 	| -13.230.327 	| -13.329.687 	| -12.917.662 	| 0           	|
| Resultado No Operacional    	| -5.981.914  	| -9.396.232  	| -4.571.944  	| -14.625.022 	| 607.579     	|
| Resultado Mensual           	| 57.914.773  	| 48.248.313  	| 37.334.501  	| 58.627.774  	| 125.902.454 	|

#### Indicadores Financieros
  
            Capital de Trabajo (M$) = 58.627
            
            Liquidez Corrientes (veces) = 1,0
            
            Razón Ácida (veces) = 0,8
            
            Porcion Deuda Corto Plazo (%) = 45,6%
            
            Porcion Deuda Largo Plazo (%) = 54,4%

### Indicadores KPI (formulas)

**Capital de Trabajo**

$$
\text { CT }=\text { Activos Corrientes }-\text { Pasivos Corrientes }
$$

**Liquidez Corriente**

$$
\text { Liquidez inmediata }=\text { (Caja y Bancos } / \text { Pasivo Corriente). }
$$

**Razón Ácida**
            
$$
\text { Razón Ácida = (Activo Corriente - Inventario) / Pasivo Corriente. }
$$

**Capitalizacion**

$$
M=C+(1+n * i)
$$

**Donde;**

M = Monto final del capital a evaluar


N = Tiempo que dura la evaluacion (normalmente Mensual)


i = Tasa de Interés Aplicable
          

# 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")
```

# Ubicación {data-icon="fa-map"}

```{python,results='hide',collapse=TRUE}
fgs_logistica = fl.Map(location=[-33.52787206047397, -70.61552320836965],zoom_start=16)

logo = "https://lh6.googleusercontent.com/hWJhZ-KkOTd0utr0OF9fMYd_4N3peFjoiJ7Pc5ZAY_g-sYGz2__dmO5QGikkHbVXv8cP_w=w16383"

fl.Marker(location=[-33.52787206047397, -70.61552320836965],
          icon=fl.Icon(color="darkblue",icon="fire")).add_to(fgs_logistica)

fl.Circle(location=[-33.52787206047397, -70.61552320836965],
          color="red",fill_color="orange",weight=3,raidus=40,fill_opacity=0.2).add_to(fgs_logistica)

FloatImage(logo,left=80,bottom=84).add_to(fgs_logistica)

fgs_logistica.save("mapa_folium_003.html")

fgs_logistica
```