Desculpe, corrigindo...
### <code r>
a<-c("B095","B096","B784","B561","N590","N980","N067","C678","C234","C009","B095",
"B561","N980","N980","C234","C009")
b<-c("Maria","Paola","José","Pedro","Kleber","Henrique","Marcelo","João","Lia",
"Ingrid","Renato","Paulo","Mariana","Mario","Luiza","Luiz")
banco<-data.frame(a,b)
banco
a1 <- strtrim(banco$a,1)
a2 <- as.numeric(substr(banco$a,2,4))
banco$cor <- NA
banco$cor[a1=="B"] <- "vermelho"
banco$cor[a1=="B" & a2>550] <- "branco"
banco$cor[a1=="C"] <- "verde"
banco$cor[a1=="C" & a2>300] <- "amarelo"
banco
### </code>