Nombre=c("Juan", "Rocio", "Manuel","Pedro", "Carla", "Fresia", "Alfredo", "Teresa", "Maria")

Colegio=c("Gaudalupe", "Pitagoras", "Cruz Saco",  "Carmelitas", "Cruz Saco", "Carmelitas", "Guadalupe", "Cruz Saco", "Cruz Saco")

Edad=c(22, 20, 19, 22, 21, 18, 24, 21, 23) 

FueraDeLima=c("SI", "NO", "SI", "NO", "NO", "SI","NO", "NO", "NO")

Sexo=c("M", "F", "M", "M", "F", "F", "M", "F", "F")

Universidad=c("UNMSM", "UNFV", "UNI", "UNI", "UNI", "UNFV", "UNMSM", "UNMSM", "UNMSM")

estudiantes=data.frame(Nombre, Colegio, Edad, FueraDeLima, Sexo, Universidad,
                       stringsAsFactors = F)
estudiantes

##    Nombre    Colegio Edad FueraDeLima Sexo Universidad
## 1    Juan  Gaudalupe   22          SI    M       UNMSM
## 2   Rocio  Pitagoras   20          NO    F        UNFV
## 3  Manuel  Cruz Saco   19          SI    M         UNI
## 4   Pedro Carmelitas   22          NO    M         UNI
## 5   Carla  Cruz Saco   21          NO    F         UNI
## 6  Fresia Carmelitas   18          SI    F        UNFV
## 7 Alfredo  Guadalupe   24          NO    M       UNMSM
## 8  Teresa  Cruz Saco   21          NO    F       UNMSM
## 9   Maria  Cruz Saco   23          NO    F       UNMSM

# Edad del más joven (hombre o mujer) no limeño.
estudiantes[estudiantes$Edad==min(estudiantes$Edad[estudiantes$FueraDeLima=="NO"]), "Edad" ]

## [1] 20

# Sexo del mas joven que esté en San Marcos y que estudió en el Guadalupe.

estudiantes[estudiantes$Edad==min(estudiantes$Edad[estudiantes$Universidad=="UNMSM" & estudiantes$Colegio=="Guadalupe"]), "Sexo" ]

## [1] "M"

# Nombre del hombre limeño que tenga menos de 21 años.}

estudiantes[(estudiantes$Edad<21) & estudiantes$FueraDeLima=="NO", "Nombre"]

## [1] "Rocio"

#(perdon profe, tuve problemas con el internet, se que no le incumbe, “y talvez ni habra mi link”; pero perdon, no acostumbro a hacer esto :( ))