Esta es una plantilla R Markdown pensada para publicar en RPubs. Incluye:
ggplot2.Reemplace el contenido con su propio análisis y visualizaciones.
Puede usar Markdown para dar formato:
**texto***texto* o _texto_`x <- 1`Inserte una imagen local (ajuste la ruta según su proyecto):
La varianza muestral se define como: \(s^2 = \frac{1}{n-1} \sum_{i=1}^{n} (x_i - \bar{x})^2\).
ggplot2set.seed(123)
df <- tibble(
x = rnorm(200),
y = 0.5 * x + rnorm(200, sd = 0.5),
grupo = sample(c('A','B'), 200, replace = TRUE)
)
p <- ggplot(df, aes(x, y, color = grupo)) +
geom_point(alpha = 0.7) +
geom_smooth(method = 'lm', se = TRUE) +
labs(
title = 'Relación entre x e y por grupo',
subtitle = 'Ejemplo con datos simulados',
x = 'Variable X', y = 'Variable Y', color = 'Grupo'
) +
theme_minimal(base_size = 12)
pdf %>%
group_by(grupo) %>%
summarise(
n = n(),
media_x = mean(x),
media_y = mean(y),
sd_x = sd(x),
sd_y = sd(y)
)## # A tibble: 2 × 6
## grupo n media_x media_y sd_x sd_y
## <chr> <int> <dbl> <dbl> <dbl> <dbl>
## 1 A 104 -0.0161 0.00544 0.909 0.667
## 2 B 96 -0.000447 0.0291 0.983 0.690
Para habilitar widgets, descomente runtime: shiny en la
cabecera YAML. Ejemplo de selectInput y salida
renderPlot dentro de un documento:
Nota: Esta sección requiere
runtime: shiny habilitado en YAML.
# Ejemplo: interactuar con el tamaño de punto
# ui dentro de RMD (cuando runtime: shiny)
shiny::selectInput('tam', 'Tamaño de punto', choices = c(1, 2, 3, 4, 5), selected = 3)
shiny::plotOutput('plt')
# server dentro del mismo chunk
shiny::renderPlot({
ggplot(df, aes(x, y, color = grupo)) +
geom_point(size = as.numeric(shiny::req(input$tam)), alpha = 0.7) +
theme_minimal()
})