Find closest value within factor levels in R

Question

I have four vectors, A and B are numeric values and C1 and C2 are factors with the same levels. A and C1 are the same length as are B and C2:

A = rnorm(100)
C