<div dir="ltr">Caro Roney, bom dia!<div><br></div><div>Segue uma primeira ideia. Verifique se atende...</div><div><br><div><div><font face="courier new, monospace">### <code></font></div><div><font face="courier new, monospace"># setwd(choose.dir())</font></div>
<div><font face="courier new, monospace"># load('dados.RData')</font></div><div><font face="courier new, monospace">head(data1); head(data2)</font></div><div><font face="courier new, monospace">grp <- sort(unique(c(data1$grupo, data2$grupo))) ### grupos</font></div>
<div><font face="courier new, monospace">{RES <- LAB <- list()</font></div><div><font face="courier new, monospace">for (i in grp) {</font></div><div><font face="courier new, monospace"> for (j in grp) {</font></div>
<div><font face="courier new, monospace"> RES <- append(RES,list(</font></div><div><font face="courier new, monospace"> subset(data2$name, data2$grupo==i) %in% </font></div>
<div><font face="courier new, monospace"> subset(data1$name, data1$grupo==j)))</font></div><div><font face="courier new, monospace"> LAB <- append(LAB, paste(i,j, sep='-'))</font></div>
<div><font face="courier new, monospace"> }}}</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">data.frame(label=sapply(LAB, "["), res=sapply(RES, sum), total=sapply(RES, length))</font></div>
<div><font face="courier new, monospace">### </code></font></div></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div>
<br><br><div class="gmail_quote">Em 10 de maio de 2014 11:40, Roney Fraga Souza <span dir="ltr"><<a href="mailto:roneyfraga@gmail.com" target="_blank">roneyfraga@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Caros,<br>
<br>
Estou tentando resolver um problema que nem sei por onde começar.<br>
<br>
Tenho dois data.frame()<br>
<br>
> data1<br>
name grupo<br>
1 Banker, 1986, V32, P1613 1<br>
2 Banker, 1986, V32, P30 1<br>
3 Macmillan, 1986, V60, P41 1<br>
4 Charnes, 1985, V30, P91 1<br>
5 Sherman, 1985, V9, P297 3<br>
6 Nunamaker, 1985, V6, P50 2<br>
7 Sherman, 1984, V4, P35 3<br>
8 Banker, 1984, V17, P35 1<br>
9 Banker, 1984, V30, P1078 1<br>
10 Nunamaker, 1983, V18, P183 2<br>
11 Parks, 1983, V12, P337 2<br>
12 Charnes, 1981, V27, P668 3<br>
13 Bessent, 1980, V16, P57 2<br>
14 Charnes, 1978, V2, P429 1<br>
<br>
> data2<br>
name grupo<br>
1 Sengupta, 1987, V18, P2279 2<br>
2 Sengupta, 1987, V8, P93 2<br>
3 Thanassoulis, 1987, V38, P397 1<br>
4 Sengupta, 1987, V14, P117 2<br>
5 Banker, 1986, V32, P1613 1<br>
6 Banker, 1986, V32, P30 1<br>
7 Macmillan, 1986, V60, P41 1<br>
8 Charnes, 1985, V30, P91 1<br>
9 Sherman, 1985, V9, P297 3<br>
10 Nunamaker, 1985, V6, P50 2<br>
11 Sherman, 1984, V4, P35 3<br>
12 Banker, 1984, V17, P35 1<br>
13 Banker, 1984, V30, P1078 1<br>
14 Nunamaker, 1983, V18, P183 2<br>
15 Parks, 1983, V12, P337 3<br>
16 Charnes, 1981, V27, P668 3<br>
17 Bessent, 1980, V16, P57 2<br>
18 Charnes, 1978, V2, P429 1<br>
<br>
<br>
e desejo comparar quantos elementos de cada grupo de data2 fazem parte de cada grupo de data1. Tentando ser mais claro:<br>
<br>
#quantos elementos de<br>
subset(data2, grupo==1)<br>
# fazem parte de<br>
subset(data1, grupo==1)<br>
subset(data1, grupo==2)<br>
subset(data1, grupo==3)<br>
<br>
#depois o raciocínio se repete para o grupo 2 de data2<br>
#quantos elementos de<br>
subset(data2, grupo==2)<br>
# fazem parte de<br>
subset(data1, grupo==1)<br>
subset(data1, grupo==2)<br>
subset(data1, grupo==3)<br>
<br>
<br>
Por fim, desejo acompanhar quanto o grupo 1 do objeto data1 contribuiu para constituir o grupo 1 do objeto data2, e assim por diante.<br>
<br>
Para baixar esses dados, segue link:<br>
<a href="http://www.datafilehost.com/d/4428e6f8" target="_blank">http://www.datafilehost.com/d/4428e6f8</a><br>
<br>
Atenciosamente<br>
Roney<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div></div>