1

I have the following vector:

[1] "Food" "Drink"    "Food" "Drink"    "Drink"    "Food" "Food" "Food" "Food"
[10] "Food" "Food" "Drink"    "Food" "Drink"    "Food" "Food" "Food" "Food"
[19] "Drink"    "Food" "Food" "Food" "Drink"    "Food" "Food" "Food" "Food"
[28] "Food" "Food" "Drink"    "Drink"    "Food" "Food" "Food" "Drink"    "Food"

I want to number the elements, but separarely. So the numbering would be:

Food1, Drink1, Food2, Drink2, Drink3

I was able to do this VERY ineffectively with a for-loop:

# c <- c()
# Drink.counter = 1
# Food.counter = 1
# for (i in 1:length(groups.df)){ 
#   if(groups.df[i] == "Drink") { 
#      c <- c(c,paste0("Drink",Drink.counter))
#      Drink.counter <- Drink.counter + 1
#   } else { 
#     c <- c(c, paste0("Food",Food.counter))
#     Food.counter <- Food.counter + 1
#   }
#   }

Any effective ways?

0 Answers0