3pc

Primera parte

#Preguntas:

1. Cita de un estadistico

“La estadística es la primera de las ciencias inexactas.”

Edmond Gouncourt

2. Mi biografia:

Soy Pamela Lázaro, nací el 5 de setiembre del 2002, en la Molina, la primaria y secundaria la lleve en el colegio “Unión lationamerica” y actualmente estoy cursando en la UNALM, la carrera que escogí por vocación fue Estadistica.

Mis hobbies son cantar desde pequeña, sobre todo las baladas y uno de mis objetivos a largo plazo es realizar articulos y investigaciones cientificas sobre la salud mental en el Perú.

3. Agregando contenido visual: 3.1. Imagen del colegio Union Lationamericana 1235 3.2. Formato CSS: ff 3.3. Emoji: yh 3.3. Ciudad que más me gusta en el Perú:

library(vembedr)
embed_url("https://www.youtube.com/watch?v=hI5sDO9HBwA") 

4. Situación académica de estudiantes de estadistica 23-1

Situación	N
Normal	250
Riesgo Académico	38
Peligro Académico	19
Separado	1

# Los paquetes utilizados:
library(ggplot2)
library(dplyr)
library(gganimate)
library(transformr)

# Creando el dataframe con el nombre de "datos"
datos <- data.frame(
  Situacion = c("Normal", "Riesgo Académico", "Peligro Académico", "Separado"),
  N = c(250, 38, 19, 1)
)

# Calcular el porcentaje
datos <- datos %>%
  mutate(Porcentaje = N / sum(N) * 100)

# Crear el gráfico de barras:
p <- ggplot(datos, aes(x = Situacion, y = Porcentaje, fill = Situacion)) +
  geom_bar(stat = "identity") +
  ylim(0, 100) +
  labs(title = "Distribución de Situaciones Académicas",
       x = "Situación",
       y = "Porcentaje (%)") +
  theme_minimal()

# Animar el gráfico:
anim <- p +
  transition_states(Situacion, transition_length = 2, state_length = 1) +
  enter_fade() + 
  exit_fade() +
  ease_aes('linear')

# Guardar la animación:
animate(anim, nframes = 100, renderer = gifski_renderer("grafico_barras_animado.gif"))

5. Presente el siguiente párrafo: >“El total de alumnos matriculados de la carrera de Estadistica Informatica en el semestre 2023-I ha sido de ……”