# VECTOR NOMBRES
nombres <- c("Ruben","Carlos","Paty","Juanita","Guadalupe","Luis","Maria","Angeles","Adrian","Lourdes","Mariana","Pedro","Alejandro","Juan","Andres","Vanessa","Ricardo","Edgar","Cesar","Gabriel")
nombres

##  [1] "Ruben"     "Carlos"    "Paty"      "Juanita"   "Guadalupe"
##  [6] "Luis"      "Maria"     "Angeles"   "Adrian"    "Lourdes"  
## [11] "Mariana"   "Pedro"     "Alejandro" "Juan"      "Andres"   
## [16] "Vanessa"   "Ricardo"   "Edgar"     "Cesar"     "Gabriel"

# VECTOR EDADES
edades <- c(sample(17:30, 20, replace = TRUE))
edades

##  [1] 29 19 21 23 18 21 27 24 24 22 20 23 22 29 30 17 25 23 19 17

personas <- data.frame(nombres, edades)
# View(personas)

paste("Media de las edades: ", mean(personas$edades))

## [1] "Media de las edades:  22.65"

paste("Edad máxima: ", max(personas$edades))

## [1] "Edad máxima:  30"

paste("Edad mínima: ", min(personas$edades))

## [1] "Edad mínima:  17"

paste("La persona de más edad es: ", personas[which.max(personas$edades),]$nombres)

## [1] "La persona de más edad es:  Andres"

paste("La persona de menos edad es: ", personas[which.min(personas$edades),]$nombres)

## [1] "La persona de menos edad es:  Vanessa"

plot(x=personas$nombres, y=personas$edades)