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 <[email protected]>[email protected]>
Dourados, MS - [22 16.5'S, 54 49'W]
_______________________________________________
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.
