Tercera practica

“El estadístico no puede evadir la responsabilidad de comprender el proceso que aplica o recomienda”

Ronald Fisher

knitr::include_graphics("Cita.jpg")

Breve descripción sobre mí

1. Orígenes:

Mi nombre es Jhordy, nací en la provincia de Huamanaga, Ayacucho, me formé académicamente en mi ciudad hasta la secundaria, luego en 2017 me mudé a la ciudad de Lima para continuarlos.

Actualmente estoy cursando la carrera de Estadística e Informática en la Universidad Nacional Agraria “La Molina”

2. Estudios

   Las casas de estudios donde me formé y estoy formando son:

   • I.E.P. Bertolt Brecht - Ayacucho

     

     Fig 1. Colegio Bertolt Brecht

   • I.E.E. Mixto “La Molina”

     

     Fig 2. Colegio Mixto La Molina

   • Universidad Nacional Agraria “La Molina”

     

     Fig 3. UNALM

3. Intereses

   Me gusta demasiado el deporte, los viajes e ir a eventos de entretinimiento o deportivos.

   El lugar que más me agrada visitar es Ica:

   library(vembedr)
   embed_url("https://www.youtube.com/watch?v=VLMdBSLP-4k") 

4. Objetivos Profesionales

   Algunos de mis objetivos a corto y largo plazo son:

   • Titularme de la Universidad.

   • Estudiar en el extranjero.

   • Volverme libre financieramente.

   • Estudiar diplomados sobre ciencia de datos o marketing digital y deportivo.

   • Invertir capital en la bolsa de valores.

#Cargar los paquetes
library(pacman)
p_load(tidyverse, ggplot2, gganimate, plotly, dplyr)
options(scipen = 999)
options(digits = 3)
Situación <- c('Normal','Riesgo Académico','Peligro Académico', 'Separado')
Cantidad <- c(250,38,19,1)
datos<- data.frame(Situación,Cantidad)

Tabla sobre situación académica de estudiantes:

library(forcats)
datos %>% ggplot() + aes(x = Situación, y = Cantidad, fill = Situación) +
  geom_bar(stat = 'identity') + theme_bw() + theme(axis.text.x = element_text(angle = 60)) + coord_flip()

“El total de alumnos matriculados de la carrera de Estadística Informática en el semestre 2023-I ha sido de 308