[R-br] Evolução de elementos em grupos

[Éder Comunello]

Caro Roney, bom dia!

Segue uma primeira ideia. Verifique se atende...

### <code>
# setwd(choose.dir())
# load('dados.RData')
head(data1); head(data2)
grp <- sort(unique(c(data1$grupo, data2$grupo))) ### grupos
{RES <- LAB <- list()
for (i in grp) {
          for (j in grp) {
                    RES <- append(RES,list(
                              subset(data2$name, data2$grupo==i) %in%
                              subset(data1$name, data1$grupo==j)))
                    LAB <- append(LAB, paste(i,j, sep='-'))
          }}}

data.frame(label=sapply(LAB, "["), res=sapply(RES, sum), total=sapply(RES,
length))
### </code>

Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]


Em 10 de maio de 2014 11:40, Roney Fraga Souza <roneyfraga em gmail.com>escreveu:

> Caros,
>
> Estou tentando resolver um problema que nem sei por onde começar.
>
> Tenho dois data.frame()
>
> > data1
>                          name grupo
> 1    Banker, 1986, V32, P1613     1
> 2      Banker, 1986, V32, P30     1
> 3   Macmillan, 1986, V60, P41     1
> 4     Charnes, 1985, V30, P91     1
> 5     Sherman, 1985, V9, P297     3
> 6    Nunamaker, 1985, V6, P50     2
> 7      Sherman, 1984, V4, P35     3
> 8      Banker, 1984, V17, P35     1
> 9    Banker, 1984, V30, P1078     1
> 10 Nunamaker, 1983, V18, P183     2
> 11     Parks, 1983, V12, P337     2
> 12   Charnes, 1981, V27, P668     3
> 13    Bessent, 1980, V16, P57     2
> 14    Charnes, 1978, V2, P429     1
>
> > data2
>                             name grupo
> 1     Sengupta, 1987, V18, P2279     2
> 2        Sengupta, 1987, V8, P93     2
> 3  Thanassoulis, 1987, V38, P397     1
> 4      Sengupta, 1987, V14, P117     2
> 5       Banker, 1986, V32, P1613     1
> 6         Banker, 1986, V32, P30     1
> 7      Macmillan, 1986, V60, P41     1
> 8        Charnes, 1985, V30, P91     1
> 9        Sherman, 1985, V9, P297     3
> 10      Nunamaker, 1985, V6, P50     2
> 11        Sherman, 1984, V4, P35     3
> 12        Banker, 1984, V17, P35     1
> 13      Banker, 1984, V30, P1078     1
> 14    Nunamaker, 1983, V18, P183     2
> 15        Parks, 1983, V12, P337     3
> 16      Charnes, 1981, V27, P668     3
> 17       Bessent, 1980, V16, P57     2
> 18       Charnes, 1978, V2, P429     1
>
>
> e desejo comparar quantos elementos de cada grupo de data2 fazem parte de
> cada grupo de data1. Tentando ser mais claro:
>
> #quantos elementos de
> subset(data2, grupo==1)
> # fazem parte de
> subset(data1, grupo==1)
> subset(data1, grupo==2)
> subset(data1, grupo==3)
>
> #depois o raciocínio se repete para o grupo 2 de data2
> #quantos elementos de
> subset(data2, grupo==2)
> # fazem parte de
> subset(data1, grupo==1)
> subset(data1, grupo==2)
> subset(data1, grupo==3)
>
>
> Por fim, desejo acompanhar quanto o grupo 1 do objeto data1 contribuiu
> para constituir o grupo 1 do objeto data2, e assim por diante.
>
> Para baixar esses dados, segue link:
> http://www.datafilehost.com/d/4428e6f8
>
> Atenciosamente
> Roney
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140511/56df382e/attachment.html>