I am creating a new answer as adding code is not possible in comments
su19 <- data.frame(q1 = c("Santiago Canyon College","College of 
       Alameda","Cerritos College","Cuyamaca college","Cypress College","Folsom Lake 
       College"), q2= c("Yes","Yes","Yes","Yes","Yes","Yes"),stringAsFactors= FALSE)
                        q1  q2
 1 Santiago Canyon College Yes
 2      College of Alameda Yes
 3        Cerritos College Yes
 4        Cuyamaca college Yes
 5         Cypress College Yes
 6     Folsom Lake College Yes
@Chelmy88 solution
su19$q1[which(su19$q2 == "Yes")]
[1] "Santiago Canyon College" "College of Alameda"      "Cerritos College"        "Cuyamaca college"        "Cypress College"        
[6] "Folsom Lake College" 
my solution
su19[which(su19$q2 == "Yes"),]$q1
[1] "Santiago Canyon College" "College of Alameda"      "Cerritos College"        "Cuyamaca college"        "Cypress College"        
[6] "Folsom Lake College" 
If you don't have a data.frame, but vectors only
q1 <- c("Santiago Canyon College","College of Alameda","Cerritos College","Cuyamaca college","Cypress College","Folsom Lake College")
q2 <- c("Yes","Yes","Yes","Yes","Yes","Yes")
su19$q1[which(su19$q2 == "Yes")]
[1] "Santiago Canyon College" "College of Alameda"      "Cerritos College"        "Cuyamaca college"        "Cypress College"        
[6] "Folsom Lake College"