knitr::opts_chunk$set(echo = TRUE)
options(scipen=999, digit = 0)
library(pacman)
p_load(foreign, tidyverse, dplyr, flexdashboard, ggplot2,
gganimate, plotly, formattable)“Los estadísticos, como los artistas, tienen el mal hábito de enamorarse de sus modelos.”
George Box
Nací el 6 de enero del 2004 en el hospital del niño de San Juan de Lurigancho. Aunque nací con labio leporino, viví una infancia relativamente normal hasta la adolescencia. Llegado a dicha etapa, pasé por fase de crisis de identidad y autoestima, pero ello fue producto de la misma etapa. No obstante, eso me ayudó de desarrollarme como persona.
Terminé mis estudios secundarios en la I.E 7262 “Mi nuevo Perú” con unas notas relativamente satisfactorias. Durante la pandemia, conocí un conocido de mi mamá, llamado Frank, quién estudiaba Estadística e Informática, en aquel entonces, en la Agraria. De esta forma, me interesé por la carrera y ahora lo estoy llevando. Debo admitir que es relativamente díficil, pero aún así, no me arrempiento en lo absoluto de mi decisión. Por ello, quiero disfrutar de esta nueva etapa de mi vida y terminar mi carrera para trabajar en la INEI más adelante, donde busco dar grandes aportes al Perú.
Situación <- c("Normal","Riesgo Académico", "Peligro Académico", "Separado")
N <- c(250,38,19,1)
datos_al_23I <- data.frame(Situación, N)
library(tidyverse)
ggplot(datos_al_23I) + aes(x = Situación, y = N) + geom_col(fill = rainbow(4)) +
scale_y_continuous( label = scales::percent_format()) +
transition_states(Situación) +
enter_fade() +
exit_fade() ## Warning: No renderer available. Please install the gifski, av, or magick package to
## create animated output## NULLEl total de alumnos matriculados de la carrera de Estadística Informático en el semestree 2023-I ha sido 308