Hi Hope it helps
Favorite<-c("Apple","Lemon","Orange","Lemon","Onion", "Apple","")
PersonID<-c(67,82,67,21,02,12,45)
all_Data<-data.frame(PersonID,Favorite)
all_Data['Country']<-as.character()
all_Data['City']<-as.character()
all_Data['Continent']<-as.character()
for (i in 1: nrow(all_Data)){
if (all_Data$Favorite[i]=="Apple") {
mcountry<-"France"
mcity<-"Paris"
mcontinent="Europe"
} else if (all_Data$Favorite[i]=="Lemon" | all_Data$Favorite[i]=="Orange"){
mcountry<-"Greece"
mcity<-"Athens"
mcontinent="Europe"
} else {
mcountry<-"Kenya"
mcity<-"Nairobi"
mcontinent="Africa"
}
all_Data$Country[i]<-mcountry
all_Data$City[i]<-mcity
all_Data$Continent[i]<-mcontinent
}