1 Introducción

Este es un documento de ejemplo que muestra varias funcionalidades de R Markdown.

1.1 Objetivos

Demostrar capacidades de R Markdown.
Incluir código, tablas, imágenes, ecuaciones y referencias.

2 Carga de Librerías y Simulación de Datos

# Instalación de paquetes (solo si no están instalados)
# install.packages(c("tidyverse", "knitr"))

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.4.3

## Warning: package 'lubridate' was built under R version 4.4.3

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(knitr)

# Datos simulados
set.seed(123)
data <- tibble(
  grupo = rep(c("A", "B"), each = 50),
  puntaje = c(rnorm(50, 500, 100), rnorm(50, 550, 80))
)

head(data)

3 Resumen estadístico del puntaje

kable(summary(data), caption = "Resumen estadístico del puntaje")

Resumen estadístico del puntaje
	grupo	puntaje
	Length:100	Min. :303.3
	Class :character	1st Qu.:469.2
	Mode :character	Median :537.4
	NA	Mean :532.6
	NA	3rd Qu.:585.1
	NA	Max. :725.0

4 Gráficos

ggplot(data, aes(x = grupo, y = puntaje, fill = grupo)) +
  geom_boxplot() +
  labs(title = "Distribución de puntajes por grupo",
       y = "Puntaje ICFES", x = "Grupo") +
  theme_minimal()

5 Inserción de imágenes

Este es un documento de ejemplo que muestra varias funcionalidades de R Markdown.

5.1 Imagen local (archivo en tu carpeta de trabajo)

Esta imagen está en la misma carpeta del proyecto

5.2 Imagen desde internet

Esta imagen viene de internet

6 Ecuaciones

Podemos incluir ecuaciones matemáticas directamente en R Markdown usando LaTeX.

Media muestral:

\[ \bar{X} = \frac{1}{n} \sum_{i=1}^{n} X_i \]

Varianza muestral:

\[ S^2 = \frac{1}{n-1} \sum_{i=1}^{n} (X_i - \bar{X})^2 \]

Regresión lineal simple:

\[ Y_i = \beta_0 + \beta_1 X_i + \epsilon_i \]

Distribución normal:

\[ X \sim \mathcal{N}(\mu, \sigma^2) \]

7 Texto enriquecido

Negritas, cursivas, código en línea, listas:

Punto 1
Punto 2
- Subpunto

Esto es una cita de ejemplo.

8 Resumen rápido de sintaxis R Markdown

library(knitr)

tabla <- data.frame(
  Elemento = c("Negrita", "Cursiva", "Código en línea", "Código en línea R", 
               "Ecuación en bloque", "Lista", "Cita"),
  Sintaxis = c("**texto**", "*texto*", "`código`", "`r códigoR`", "$$ ... $$", "- elemento", "> texto"),
  Ejemplo  = c("**texto**", "*texto*", "`código`", "`r mean(data$puntaje)`", "$$ y = mx + b $$", "- item", "> texto")
)

kable(tabla)

Elemento	Sintaxis	Ejemplo
Negrita	texto	texto
Cursiva	texto	texto
Código en línea	`código`	`código`
Código en línea R	`r códigoR`	`r mean(data$puntaje)`
Ecuación en bloque	\[ ... \]	\[ y = mx + b \]
Lista	- elemento	- item
Cita	> texto	> texto

Plantilla de ejemplo con opciones de R Markdown