Caro José, boa tarde Comentários no código...
### <code r> dat <- read.table(text=" V1;V2;V3 7;PARAUNA;FAZENDAS PUBLICAS E 2.CIVEL 7;CACHOEIRA DOURADA;FAMILIA, SUC. INF.JUV. E CIVEL 8;ITUMBIARA;2A CIVEL E FAZ.PUB.EST 108;SAO MIGUEL DO ARAGUAIA;ESCRIVANIA DO CRIME 7;SAO LUIS DE MONTES BELOS;FAMILIA, SUC. INF.JUV. E 1.CIVEL 8;MINEIROS;ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 7;NEROPOLIS;FAMILIA, SUC. INF.JUV. E 1.CIVEL 7;ITAJA;FAMILIA, SUC. INF.JUV. E CIVEL 8;ANICUNS;FAZENDAS PUBLICAS E 2.CIVEL 8;CALDAS NOVAS;FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 8;MINEIROS;ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 8;MINEIROS;ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 108;ALEXANIA;ESCRIVANIA DO CRIME 8;CALDAS NOVAS;FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 8;ANICUNS;FAZENDAS PUBLICAS E 2.CIVEL 7;RIO VERDE;1A.VARA CIVEL 7;NOVO GAMA;FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 16;NOVO GAMA;FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 8;MINEIROS;ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 7;NEROPOLIS;FAMILIA, SUC. INF.JUV. E 1.CIVEL", head=T, sep=";", colClasses="factor") ### A forma a seguir é bem próxima do que você indicou... with(dat, table(paste(V2, V3, sep=" - "), V1)) ### Uma forma melhor seria... ftable(with(dat, table(V2,V3,V1))) ### No entanto, precisaria descobrir como suprimir as linhas com valores zerados... ### </code> Espero que lhe ajude, Éder Comunello <c <[email protected]>[email protected]> Dourados, MS - [22 16.5'S, 54 49'W] Em 14 de maio de 2014 10:42, jose gomes de souza filho Gomes < [email protected]> escreveu: > Caros amigos > > Tem o banco de dados e estou tentando agrupar as colunas V2 e V3 e também > quantificar os valores de V1. > > http://www.datafilehost.com/d/e9883398 > > V1 V2 V3 7 PARAUNA FAZENDAS PUBLICAS E 2.CIVEL 7 CACHOEIRA DOURADA > FAMILIA, > SUC. INF.JUV. E CIVEL 8 ITUMBIARA 2A CIVEL E FAZ.PUB.EST 108 SAO MIGUEL > DO ARAGUAIA ESCRIVANIA DO CRIME 7 SAO LUIS DE MONTES BELOS FAMILIA, SUC. > INF.JUV. E 1.CIVEL 8 MINEIROS ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 7 > NEROPOLIS FAMILIA, SUC. INF.JUV. E 1.CIVEL 7 ITAJA FAMILIA, SUC. > INF.JUV. E CIVEL 8 ANICUNS FAZENDAS PUBLICAS E 2.CIVEL 8 CALDAS NOVAS > FAZENDAS > PUB.REG.PUB.AMB. E 2.CIVEL 8 MINEIROS ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL > 8 MINEIROS ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 108 ALEXANIA ESCRIVANIA DO > CRIME 8 CALDAS NOVAS FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 8 ANICUNS FAZENDAS > PUBLICAS E 2.CIVEL 7 RIO VERDE 1A.VARA CIVEL 7 NOVO GAMA FAZENDAS > PUB.REG.PUB.AMB. E 2.CIVEL 16 NOVO GAMA FAZENDAS PUB.REG.PUB.AMB. E > 2.CIVEL 8 MINEIROS ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL 7 NEROPOLIS FAMILIA, > SUC. INF.JUV. E 1.CIVEL > > > > > > Gostaria que ele ficasse: > > > > > > 7 8 16 108 > *ALEXANIA* > > > 1 > ESCRIVANIA DO CRIME > > > 1 > *ANICUNS* > 2 > > > FAZENDAS PUBLICAS E 2.CIVEL > 2 > > > *CACHOEIRA DOURADA* 1 > > > > FAMILIA, SUC. INF.JUV. E CIVEL 1 > > > > *CALDAS NOVAS* > 2 > > > FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL > 2 > > > *ITAJA* 1 > > > > FAMILIA, SUC. INF.JUV. E CIVEL 1 > > > > *ITUMBIARA* > 1 > > > 2A CIVEL E FAZ.PUB.EST > 1 > > > *MINEIROS* > 4 > > > ESC. FAZ.PUB.REG.PUB.AMB.E 2.CIVEL > 4 > > > *NEROPOLIS* 2 > > > > FAMILIA, SUC. INF.JUV. E 1.CIVEL 2 > > > > *NOVO GAMA* 1 > 1 > > FAZENDAS PUB.REG.PUB.AMB. E 2.CIVEL 1 > 1 > > *PARAUNA* 1 > > > > FAZENDAS PUBLICAS E 2.CIVEL 1 > > > > *RIO VERDE* 1 > > > > 1A.VARA CIVEL 1 > > > > *SAO LUIS DE MONTES BELOS* 1 > > > > FAMILIA, SUC. INF.JUV. E 1.CIVEL 1 > > > > *SAO MIGUEL DO ARAGUAIA* > > > 1 > ESCRIVANIA DO CRIME > > > 1 > Total geral 8 9 1 2 > > > > > > > > > > > > > Grato, > > > > > Gomes > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. >
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
