---
title: "Tablero"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(readxl)
library(ggplot2)
install.packages("ggplot2")
library(summarytools)
library(pander)
AzucarBD <- read_excel("AzucarBD.xlsx")

```

Column {data-width=450}
-----------------------------------------------------------------------

### Promedio valor exportado en 2023 (Miles de USD)

```{r}
valueBox(value=paste(round(mean(mtcars$wt),1),"USD"),
         caption="Promedio valor",
         color="yellow")
```

### Valor maximo exportado en 2023 (Miles de USD)

```{r}
valueBox(value=paste(round(max(mtcars$wt),1),"USD"),
         caption="Maximo valor",
         color="green")
```

### Valor minimo exportado en 2023 (Miles de USD)

```{r}
valueBox(value=paste(round(min(mtcars$wt),1),"USD"),
         caption="Minimo valor",
         color="red")
```


Column {data-width=550}
-----------------------------------------------------------------------

### Chart B

```{r}
bd_new <- na.omit(AzucarBD)
ggplot(bd_new, aes(bd_new$`Participación de las exportaciones para Colombia (%)`))+
         geom_histogram(fill="blue",color="white",
                        alpha=0.9)+
         theme_minimal()+
         labs(x="%",y="Frecuencia absoluta")
         #ggtittle("Paises")
```

### Chart C

```{r}
result <- descr(bd_new)
pander(result)
```