Esqueci de incluir o output da primeira solução no email anterior, Segue...
with(dat, table(paste(V2, V3, sep=" - "), V1)) V1 108 16 7 8 ALEXANIA - ESCRIVANIA DO CRIME 1 0 0 0 ANICUNS - FAZENDAS PUBLICAS E 2.CIVEL 0 0 0 2 CACHOEIRA DOURADA - FAMILIA, SUC. INF.JUV. E CIVEL 0 0 1 0 CALDAS NOVAS - FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 0 0 0 2 ITAJA - FAMILIA, SUC. INF.JUV. E CIVEL 0 0 1 0 ITUMBIARA - 2A CIVEL E FAZ.PUB.EST 0 0 0 1 MINEIROS - ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 0 0 0 4 NEROPOLIS - FAMILIA, SUC. INF.JUV. E 1.CIVEL 0 0 2 0 NOVO GAMA - FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 0 1 1 0 PARAUNA - FAZENDAS PUBLICAS E 2.CIVEL 0 0 1 0 RIO VERDE - 1A.VARA CIVEL 0 0 1 0 SAO LUIS DE MONTES BELOS - FAMILIA, SUC. INF.JUV. E 1.CIVEL 0 0 1 0 SAO MIGUEL DO ARAGUAIA - ESCRIVANIA DO CRIME 1 0 0 0
Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]