Citas que me identifican

  1. “Un libro es un sueño que usted tiene en sus manos” - Neil Gaiman
  2. “La vida no se trata de encontrarte a ti mismo. La vida consiste en crearte a ti mismo” - Bernard Shaw

Mi Hobbie o Pasatiempo

Leer de comics o mangas

Los motivos por los que disfruto de la lectura son:

  1. Los cómics o mangas facilitan la concentración y la memorización, así como la alfabetización visual y la expresión oral y escrita.
  2. Leer comics o mangas es mi forma de desconectar de la rutina diaria y perderme en otros mundos y experiencias.

Mi Selfie

Mi Selfie
Mi Selfie

Mi Sitio Web Favorito

sitio web favorito

Video con vembedr

library(vembedr)
embed_url("https://www.youtube.com/watch?v=1iBe7LF5Ryo") %>% use_align("center")

Tabla de los postulantes

library(flextable)
library(ggplot2)
library(gganimate)
postulantes_df <- data.frame(
  Año = as.factor(c(2018, 2019, 2020, 2021, 2022, 2023)),
  Postulantes = c(2100, 2050, 2100, 1800, 2400, 2500)
)

flextable(postulantes_df)

Año

Postulantes

2018

2,100

2019

2,050

2020

2,100

2021

1,800

2022

2,400

2023

2,500

Grafico animado

library(ggplot2)
library(gganimate)
grafico <- ggplot(postulantes_df, aes(x = Año, y = Postulantes, fill = Año)) +
  geom_col() +
  labs(title = 'Número de Postulantes por Año', y = 'Postulantes', x = 'Año') +
  theme_minimal()

grafico <- grafico + transition_states(Año, transition_length = 2, state_length = 1) +
  enter_fade() + exit_shrink() +
  ease_aes('sine-in-out')

animate(grafico, renderer = gifski_renderer(), height = 400, width = 600, fps = 2)

Promedio de los postulantes

promedio <- mean(postulantes_df$Postulantes)
paste("En los últimos seis años el número de postulantes promedio ha sido de", promedio, "postulantes.")
## [1] "En los últimos seis años el número de postulantes promedio ha sido de 2158.33333333333 postulantes."