Clase Epodemiología - Practicas en clase - Anahí

PRACTICA EN CLASE 1 - 05 de Diciembre 2025 Sandoval Chávez Lucia Anahí

-Crear objeto:

#crear un objeto "edad"
edad <- c(25, 30, 35, 40)
#mostrar el objeto:
print(edad)

df <- as.data.frame(edad)

-Calcular Promedio:

#calcular el promedio de un vector promedio
promedio <-mean(c(10, 20, 30, 40))
print(promedio)

-Operaciones matemáticas:

#Sumar las edades
sum(edad)

PRACTICA EN CLASE 2 - 08 de Diciembre 2025

Graficar los datos con ggplot

#Graficar los datos 
df<-data.frame(x=1:5, y= datos) 

df

#crear gráfica de barras
ggplot(df, aes(x=x, y=y)) + geom_bar(stat = "identity", fill = "#bda2fa") + labs(title = "Grafico de barras", x= "Indice", y= "Valores")

NA
NA

#Para renombrar o darle un caracter/valor a X
df <- df %>% mutate(x= c("Anahí", "Luis", "Julissa", "Liliana", "Johanna"), x=factor(x, levels = c("Anahí", "Luis", "Julissa", "Liliana", "Johanna")))

df

ggplot(df, aes(x=x, y=y)) + 
  geom_bar(stat = "identity", fill = "#bda2fa") + 
  labs(title = "Grafico de barras", x= "Indice", y= "Valores")

NA
NA
NA
NA