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

colegio=c("Guadalupe", "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  Guadalupe   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

Estudiantes[Estudiantes$FueraDeLima=="SI" & Estudiantes$edad==min(Estudiantes$edad),"edad"]

## [1] 18