Extract values based on indexes without looping?

sapply(which.vec, function(x){ value.vec[x] } )

# value.vec stores values
value.vec <- c('a','b','c')
#  which.vec stores the locations/indexs of values in value.vec.
which.vec <- c(3, 2, 2, 1)
# How can I obtain the following vector based on the value.vec and  
which.vec
mentioned above
# vector.I.want <- c('c', 'b', 'b', 'a')

vector.I.want <- rep(NA,length(which.vec))
for (i in 1:length(which.vec))
{ vector.I.want[i] <- value.vec[which.vec[i]] }