ejercicio4

nombres <- c("Oscar","Omar","Luis","Alberto","Juan","Carlos","Alexandro","Chriselle","Danna","Esperanzza","Maria","Ofelia","Rosa","Pablo","Fatima","Salvador","Erick","Saulo","Lety","Juana")
edades <- sample(17:30, size = 20, replace = TRUE)
datos <- data.frame(edades, nombres)

mean(edades)

## [1] 24.35

min(edades)

## [1] 18

max(edades)

## [1] 30

datos[which.max(datos$edades),]

##   edades nombres
## 1     30   Oscar

datos[which.min(datos$edades),]

##   edades   nombres
## 8     18 Chriselle

barplot(datos$edades ~ datos$nombres)