Información de personas

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")

integrantesSpss=data.frame(nombre, colegio, edad, FueraDeLima, sexo, universidad, stringsAsFactors = F)

Cuadro de datos

integrantesSpss

##    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

Edad del más joven no limeño

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

## [1] 18

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

integrantesSpss[integrantesSpss$edad==min(integrantesSpss$edad[integrantesSpss$universidad=="UNMSM"&integrantesSpss$colegio=="guadalupe"]), "sexo"]

## [1] "M" "M"

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

integrantesSpss[(integrantesSpss$edad<21) & integrantesSpss$FueraDeLima=="NO" & integrantesSpss$sexo=="M", c("nombre")]

## character(0)

integrantesSpss[(integrantesSpss$edad<21) & integrantesSpss$FueraDeLima=="NO" & integrantesSpss$sexo=="F", c("nombre")]

## [1] "Rocio"