Frase

“El único modo de hacer un gran trabajo es amar lo que haces”

Descripción
En mis tiempos libres a veces subo la cabeza y comienzo a improvisar letras de canciones, esto me relaja demasiado ya que muchas veces contengo mis sentimiento y al improvizar me libero de todas las cargas emocionales es para mi como un nuevo comienzo.

  1. Me libera de cargas psicologias.
  2. Me da paz mental.
  3. Lo concidero una terapia fisica.
  4. Me divierte bastante.

Imagen

devtools::install_github("ijlyttle/vembedr")
## Skipping install of 'vembedr' from a github remote, the SHA1 (f270a72d) has not changed since last install.
##   Use `force = TRUE` to force installation
library(vembedr)
embed_url("https://www.youtube.com/watch?v=gLO2iSzbNwE") %>% use_align("center")

Emoji

devtools::install_github("hadley/emo")
## Skipping install of 'emo' from a github remote, the SHA1 (3f03b114) has not changed since last install.
##   Use `force = TRUE` to force installation
View(emo::jis)

emo::ji("bar_chart")
## 📊
library(pacman)
p_load(gganimate, dplyr, datos, kableExtra, reticulate)
options(scipen = 999)
options(digits = 3)
library(foreign)
df <- data.frame(años = c(2018, 2019, 2020, 2021, 2022,2023),
                 postulantes = c(2100, 2050, 2100, 1800, 2400,2500))


ggplot(df, aes(x = años, y = postulantes)) +
  geom_bar(stat = "identity") +
  transition_states(años, transition_length = 2, state_length = 1) +
  enter_fade() +
  exit_fade() +
  labs(title = "Número de postulantes por año") +
  ylab("Número de postulantes") +
  xlab("Año")

años = c(2018, 2019, 2020, 2021, 2022,2023)
postulantes = c(2100, 2050, 2100, 1800, 2400,2500)

En los últimos seis años el número de postulantes promedio ha sido de 2158.333postulantes.