Práctica Calificada 3
Esther Condori
2024-06-19
Presentar una cita o frase de un estadístico de su preferencia
“Natural selection is a mechanism for generating an exceedingly high degree of improbability.”
Ronald A. Fisher
https://www.goodreads.com/author/quotes/702486.Ronald_A_Fisher#
Escribe una breve biografía de ti mismo
Soy Esther, y principalmente me gusta estar en el campo, sentir el aire fresco, de hecho ese fue el primer motivo de elegir a la UNALM como lugar para convertirme en una profesional. Tengo 18 años , en mis tiempos libres me gusta escuchar música, ver series o películas, pasear a mi perro, etc.
- Estudiante de la UNALM en la carrera de estadística informática
- Mis intereses a futuro son convertirme en una gran profesional, y así ayudar a mucha gente o animales que se encuentran en mal estado.
- Objetivos profesionales: Pertenecer a una buena empresa
Incluir por lo menos una imagen de tu colegio, una dirección web de tu colegio o ciudad de tus padres, un tema en formato *.CSS, un emoji y un video relacionado a la ciudad o lugar en Perú que más te agrade visitar con el paquete vembedr
Imagen del colegio
Dirección web: https://web.facebook.com/ABRAHAMVALDELOMARVES?locale=es_LA
Emoji: 🦙
Video relacionado a una ciudad:
library(vembedr)
embed_url("https://www.youtube.com/watch?v=ogH-nIKpA7o") %>% use_align("center")Presente un gráfico de barras animado en % con los datos de la tabla
library(pacman)
p_load(gganimate, ggplot2, dplyr)
datos <- data.frame(
Situación = c("Normal", "Riesgo Académico", "Peligro Académico", "Separado"),
n = c(250, 38, 19, 1))
gráfico <- ggplot(datos, aes(x = Situación, y = n, fill = Situación)) +
geom_bar(stat = "identity") +
theme_minimal() +
labs(title = "Distribución de Situaciones Académicas", x = "Situación", y = "Cantidad")
# Animar el gráfico de barras
graf_anim <- gráfico +
transition_states(
Situacion,
transition_length = 2,
state_length = 1) +
enter_fade() +
exit_fade()