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] 23.1

min(edades)

## [1] 17

max(edades)

## [1] 29

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

##   edades   nombres
## 7     29 Alexandro

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

##   edades nombres
## 3     17    Luis

barplot(edades ~ nombres)