Proyecto Final de ToothGrowth

class: center, middle, inverse, title-slide

.title[
# Proyecto Final de ToothGrowth
]
.subtitle[
## Trabajo final
]
.author[
### Tu Nombre
]
.date[
### 2024-12-21
]

---

# Diapositiva 2: Introducción

En este proyecto se realiza un análisis descriptivo del conjunto de datos `ToothGrowth`.  
Se calculan medidas de tendencia central, dispersión y frecuencias, y se generan visualizaciones.

---

# Diapositiva 3: Cargar datos y preparación

``` r
data("ToothGrowth")
df <- ToothGrowth

cat_vars <- sapply(df, is.factor)
num_vars <- sapply(df, is.numeric)

cat_cols <- names(df)[cat_vars]
num_cols <- names(df)[num_vars]
```

Este fragmento de código carga los datos `ToothGrowth` y separa los nombres de las variables categóricas y numéricas.

---

# Diapositiva 4: Explicación básica antes de la tabla

Las siguientes diapositivas muestran una tabla con estadísticas descriptivas de las variables numéricas y otras métricas de interés.

---

# Diapositiva 5: Tabla de estadísticas descriptivas

---

# Diapositiva 6: Métricas resumidas

```
## Variable: len
##   Media: 18.81
##   Desviación Estándar: 7.65
##   Varianza: 58.51
##   Mínimo: 4.2
##   Máximo: 33.9
##   Rango: 29.7
##   Percentiles (25%, 50%, 75%): 13.07, 19.25, 25.27
## 
## Variable: dose
##   Media: 1.17
##   Desviación Estándar: 0.63
##   Varianza: 0.4
##   Mínimo: 0.5
##   Máximo: 2
##   Rango: 1.5
##   Percentiles (25%, 50%, 75%): 0.5, 1, 2
```

---

# Diapositiva 7: Frecuencias y proporciones

```
## 
## Variable categórica: supp
## 
## OJ VC 
## 30 30 
## 
## Proporciones:
## 
##  OJ  VC 
## 0.5 0.5
```

---

# Diapositiva 8: Gráfico 1 - Boxplot

![](Proyecto_ToothGrowth_files/figure-html/unnamed-chunk-5-1.png)

---

# Diapositiva 9: Gráfico 2 - Histograma

![](Proyecto_ToothGrowth_files/figure-html/unnamed-chunk-6-1.png)

---

# Diapositiva 10: Gráficos 3 y 4

![](Proyecto_ToothGrowth_files/figure-html/unnamed-chunk-7-1.png)

---

# Diapositiva 11: Estadísticas agrupadas

```
## `summarise()` has grouped output by 'supp'. You can override using the
## `.groups` argument.
```

<table class="table" style="font-size: 12px; width: auto !important; margin-left: auto; margin-right: auto;">
<caption style="font-size: initial !important;">Estadísticas agrupadas</caption>
 <thead>
  <tr>
   <th style="text-align:left;"> supp </th>
   <th style="text-align:right;"> dose </th>
   <th style="text-align:right;"> mean_len </th>
   <th style="text-align:right;"> median_len </th>
   <th style="text-align:right;"> sd_len </th>
   <th style="text-align:right;"> var_len </th>
   <th style="text-align:right;"> n </th>
   <th style="text-align:right;"> min_len </th>
   <th style="text-align:right;"> max_len </th>
   <th style="text-align:right;"> range_len </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> OJ </td>
   <td style="text-align:right;"> 0.5 </td>
   <td style="text-align:right;"> 13.23 </td>
   <td style="text-align:right;"> 12.25 </td>
   <td style="text-align:right;"> 4.459708 </td>
   <td style="text-align:right;"> 19.889000 </td>
   <td style="text-align:right;"> 10 </td>
   <td style="text-align:right;"> 8.2 </td>
   <td style="text-align:right;"> 21.5 </td>
   <td style="text-align:right;"> 13.3 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> OJ </td>
   <td style="text-align:right;"> 1.0 </td>
   <td style="text-align:right;"> 22.70 </td>
   <td style="text-align:right;"> 23.45 </td>
   <td style="text-align:right;"> 3.910953 </td>
   <td style="text-align:right;"> 15.295556 </td>
   <td style="text-align:right;"> 10 </td>
   <td style="text-align:right;"> 14.5 </td>
   <td style="text-align:right;"> 27.3 </td>
   <td style="text-align:right;"> 12.8 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> OJ </td>
   <td style="text-align:right;"> 2.0 </td>
   <td style="text-align:right;"> 26.06 </td>
   <td style="text-align:right;"> 25.95 </td>
   <td style="text-align:right;"> 2.655058 </td>
   <td style="text-align:right;"> 7.049333 </td>
   <td style="text-align:right;"> 10 </td>
   <td style="text-align:right;"> 22.4 </td>
   <td style="text-align:right;"> 30.9 </td>
   <td style="text-align:right;"> 8.5 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> VC </td>
   <td style="text-align:right;"> 0.5 </td>
   <td style="text-align:right;"> 7.98 </td>
   <td style="text-align:right;"> 7.15 </td>
   <td style="text-align:right;"> 2.746634 </td>
   <td style="text-align:right;"> 7.544000 </td>
   <td style="text-align:right;"> 10 </td>
   <td style="text-align:right;"> 4.2 </td>
   <td style="text-align:right;"> 11.5 </td>
   <td style="text-align:right;"> 7.3 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> VC </td>
   <td style="text-align:right;"> 1.0 </td>
   <td style="text-align:right;"> 16.77 </td>
   <td style="text-align:right;"> 16.50 </td>
   <td style="text-align:right;"> 2.515309 </td>
   <td style="text-align:right;"> 6.326778 </td>
   <td style="text-align:right;"> 10 </td>
   <td style="text-align:right;"> 13.6 </td>
   <td style="text-align:right;"> 22.5 </td>
   <td style="text-align:right;"> 8.9 </td>
  </tr>
  <tr>
   <td style="text-align:left;"> VC </td>
   <td style="text-align:right;"> 2.0 </td>
   <td style="text-align:right;"> 26.14 </td>
   <td style="text-align:right;"> 25.95 </td>
   <td style="text-align:right;"> 4.797731 </td>
   <td style="text-align:right;"> 23.018222 </td>
   <td style="text-align:right;"> 10 </td>
   <td style="text-align:right;"> 18.5 </td>
   <td style="text-align:right;"> 33.9 </td>
   <td style="text-align:right;"> 15.4 </td>
  </tr>
</tbody>
</table>