--- 
format:
  revealjs:
    theme: 
      - default
    transition: slide
    transition-speed: slow
    slide-number: true
editor: source
bibliography: ejemplo.bib
--- 

# Práctico 9: Presentaciones en Quarto

Presentación de ejemplo

<br>

18 de junio de 2026

:::{.notes}
Esta es la slide introductoria de la presentación 
:::

# Slide con un '#'


## Subtítulo con 2 '#'

### Subtítulo con 3 '#'

#### Subtítulo con 4 '#'


##

La literatura respalda los hallazgos encontrados [@breznau_does_2021; @healy_plain_2018; @christensen_transparent_2019].


##

```{r}
#| label: fig-ejemplo
#| fig-cap: "Gráfico de ejemplo con datos ficticios"
#| warning: false
#| message: false

# Cargar librerías necesarias
library(ggplot2)
library(dplyr)

# Crear datos ficticios
set.seed(123)  # Para reproducibilidad
datos_ejemplo <- data.frame(
  categoria = rep(c("Grupo A", "Grupo B", "Grupo C", "Grupo D"), each = 50),
  valor_x = rnorm(200, mean = 50, sd = 10),
  valor_y = rnorm(200, mean = 30, sd = 8),
  satisfaccion = sample(1:10, 200, replace = TRUE)
)

# Crear el gráfico
ggplot(datos_ejemplo, aes(x = valor_x, y = valor_y, color = categoria)) +
  geom_point(aes(size = satisfaccion), alpha = 0.7) +
  geom_smooth(method = "lm", se = FALSE) +
  labs(
    title = "Relación entre variables X e Y por categoría",
    subtitle = "Datos ficticios para demostración",
    x = "Variable X",
    y = "Variable Y",
    color = "Categoría",
    size = "Satisfacción (1-10)"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),
    plot.subtitle = element_text(hjust = 0.5, size = 12),
    legend.position = "bottom"
  ) +
  scale_color_viridis_d(option = "plasma") +
  scale_size_continuous(range = c(1, 4))
```

Esta es la @fig-ejemplo

## 

::::{.columns}
:::{.column width="50%"}
- La información puede ser presentada de distintas maneras

- Organizando los espacios
:::

:::{.column width="50%"}
- Separando el texto en columnas
  
- Y variando el estilo
:::
::::

## Referencias