[R-es] Porcentajes de clasificaciones correctas

Buenos días, obtengo una Tabla de contingencia con:
tabrp<-table(variable objetivo, predicción)

y en porcentajes con:
tabprc<-100*(prop.table(tabrp,1))

Para sacar los porcentajes de clasificaciones correctas usaba simplemente:
diag(tabrp)

pero si no todas las categorías de la variable objetivo están en la
predicción, la diagonal ya no son las clasificaciones correctas.

¿Sabéis de alguna forma sencilla de obtener esas clasificaciones correctas
o de algún paquete que te lo dé directamente?
Gracias,
Manuel