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@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]