[R-es] contar casos en un vector

[Sebastian Kruk]

Buenas noches, tengo dos vectores con nombres. El primero es largo,
nombreL, y el segundo corto, nombreC. Quiero contar cuantas veces
aparece alguno de los nombres del vector corto en el largo.

Lo que estoy haciendo es lo siguiente:

cuenta <- 0
topL <- length(nombreL)
topC <- length(nombreC)
for (i in 1:topL) {
                      for (j in 1:topC) {
                                            k <-
grep(noquote(nombreL[i]),nombreC[j])
                                            if (length(k) > 0){

cuenta <- cuenta + 1
    				   }
                                             }

¿Hay alguna forma de vectorizarlo?

Saludos,

Sebastián.