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