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

[Éder Comunello]

Roney, bom dia!

Complementando o email anterior...

### <code r>
setwd("C:/LAB/Temp/Roney");getwd()
load("ver2.RData")
ver2.df <- do.call(rbind, ver2)
row.names(ver2.df) <- NULL
head(ver2.df)
str(ver2.df)

### ideia básica
table(ver2.df$name, ver2.df$grupo)

### transforma table em data.frame
tab <- as.data.frame.matrix(table(ver2.df$name, ver2.df$grupo)); head(tab)

### conferindo alguns resultados apresentados em tab...
tab[2,1:5]
lapply(1:5, function(x)
          ver2.df[which(ver2.df$name=='Abay, 2004, V24,
P123'&ver2.df$grupo==x),])

### número de citações de cada referência
rowSums(tab[,2:48])

### número de grupos em que citação ocorre
tabL <- (tab>0)*1 ; head(tabL) ### criação de uma versão "lógica" de tab
rowSums(tabL[,2:48])

### situações em que a citação do grupo 1 aparece no grupo 2
nrow(tab[tabL[,1]&tabL[,2],1:2]) #[1] 2173
tab[tabL[,1]&tabL[,2],1:2]

### situações em que a citação do grupo 1 aparece no grupo 3
nrow(tab[tabL[,1]&tabL[,3],c(1,3)]) #[1] 1827
tab[tabL[,1]&tabL[,3],c(1,3)]

### você pode utilizar um loop pra testar cada grupo contra os demais!

### </code>

Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140610/d23c3675/attachment-0001.html>