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>