Pregunta 2

Soy Kevin William Cuadros Ramirez, un estudiante de Estadística Informática en la Universidad Nacional Agraria La Molina. Siempre tuve un gran interés por las matemáticas y la tecnología lo que me ha llevado a combinar estas áreas para saber que carrera queria estudiar. Además de mis estudios, disfruto jugando al baloncesto, videojuegos y leyendo cómics, actividades que me permiten mantener un equilibrio entre mis intereses intelectuales y recreativos.

Mis objetivos son:

completar mi carrera con éxito
contrubuir con el conocimiento que estoy adquiriendo para aplicarlo en el ámbito profesional.

Pregunta 3

Colegio

Enlace de mi colegio

Web colegio

Emoji

Video con vembedr

library(vembedr)

## Warning: package 'vembedr' was built under R version 4.2.3

embed_url("https://www.youtube.com/watch?v=b0DtwUq386Y") %>% use_align("center")

Pregunta 4

datos<- data.frame(situacion = c("Normal","Riesgo Academico","Peligro Academico","Separado"), N = c(250,38,19,1))

flextable(datos)

situacion	N
Normal	250
Riesgo Academico	38
Peligro Academico	19
Separado	1

datos <- datos %>%
  mutate(porcentaje = N / sum(N) * 100)

p <- ggplot(datos, aes(x = situacion, y = porcentaje, fill = situacion)) +
  geom_bar(stat = "identity") +
  scale_y_continuous(labels = scales::percent_format(scale = 1)) +
  labs(title = "Situaciones Académicas",
       x = "Situación",
       y = "Porcentaje",
       fill = "Situación") +
  theme_minimal() +
  transition_states(situacion, transition_length = 2, state_length = 1) +
  ease_aes('sine-in-out')
                

p

Pregunta 5

total <- sum(datos$N)
paste("El total de alumnos matriculados de la carrera de Estadistica Informatica en el semestre 2023-I ha sido de ",total)

## [1] "El total de alumnos matriculados de la carrera de Estadistica Informatica en el semestre 2023-I ha sido de  308"

pc3

Kevin Cuadros

19 de Junio de 2024