---
title: "Tablero"
author: "Sebastian Orejuela"
date: "2025-11-10"
output:
   flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r}
coffeData = read.table("coffeData.csv", header=TRUE, sep=";",
                       dec=".", stringsAsFactors = TRUE)
```

Información delos datos
================================================================================

Row
--------------------------------------------------------------------------------

### Estadisticas

```{r}
summary(coffeData)

```

Row
--------------------------------------------------------------------------------

### Descripción de los datos.

Este conjunto de datos tiene muestra de 1337 datos de café, donde se tienen variables asociadas al aroma, el sabor y otras características sensoriales. Los datos fueron recolectados del Instituto de Calidad del Café.

### Gráfico muestras de café
![](donde_viene_cafe_1.avif)

Histogramas
================================================================================

Row
--------------------------------------------------------------------------------

### Sabor

```{r}
library(ggplot2)
ggplot(coffeData, aes(x=Flavor))+
  geom_histogram(fill="plum1")
```

Row
------------------------------------------------------------------

### Calidad

```{r}
ggplot(coffeData, aes(x=quality_score))+
  geom_histogram(fill="pink")
```

Row
------------------------------------------------------------------

### Aroma

```{r}
ggplot(coffeData, aes(x=Fragrance...Aroma))+
  geom_histogram(fill="violet")
```

Diagrama de Cajas
==================================================================

Row
------------------------------------------------------------------

### Sabor

```{r}
ggplot(coffeData, aes(x=Flavor))+
  geom_boxplot(fill="violet")
```


Row
------------------------------------------------------------------

### Calidad

```{r}
ggplot(coffeData, aes(x=quality_score))+
  geom_boxplot(fill="green")
```



Row
------------------------------------------------------------------

### Aroma

```{r}
ggplot(coffeData, aes(x=Fragrance...Aroma))+
  geom_boxplot(fill="turquoise")
```

Correlación
==================================================================

Row
------------------------------------------------------------------

### Matriz de correlación.

```{r}
library(corrplot)
x = cor(coffeData[,4:14])
corrplot(x, method="number")

```

Row
------------------------------------------------------------------

### Sabor vs Calidad

```{r}
ggplot(coffeData, aes(x=Flavor, y=quality_score))+
  geom_jitter()+
  geom_smooth(method="lm", colour="yellow")
```

### Interpretación

Se observa una relación directamente proporcional entre el sabor y la calidad, estas variables presentan correlación $r=0.83$.

Calidad por país
================================================================================

Row
--------------------------------------------------------------------------------
### Calidad VS País
```{r}

library(dplyr)
nuevosDatos=filter(coffeData,
                   Country.of.Origin %in% c("Colombia", "Peru", "Brazil","Mexico", "Ecuador"))
ggplot(nuevosDatos, aes(x=Country.of.Origin, y= quality_score,fill=Country.of.Origin))+
  geom_boxplot()+labs(x="País", y="Calidad")
```
Row
------------------------------------------------------------------------

### Interpretación

Se destaca que Colombia presenta una buena calidad del café en comparación del resto de países.