If condition over a vector in R

I am quite new to this kind of function in R. What I am trying to do is to use the if statement over a vector.

Specifically, let's say we have a vector of characters:

id <- c('4450', '73635', '7462', '12')

What I'd like to do is to substitute those elements containing a specific number of characters with a particular term. Here what I tried so far:

    for (i in 1:length(id)) {
  if(nchar(i) > 3) {
     id[i] <- 'good' 
  }
  else id[i] <- 'bad'
 }

However, the code doesn't work and I don't understand why. Also I'd like to ask you:

• How can use multiple conditions in this example? Like for those elements with nchar(i) > 6 susbstitute with 'mild', nchar(i) < 2 susbsitute with 'not bad' and so on.

Thanks for your help,