how to i subset an object in R such that i combine it with a new object

Question

so I am trying to create an object called col.cell with the following code

col.cell <- c("purple", "orange")[sampleinfo$CellType] . The idea is