boucle dans toutes les colonnes d'une trame de données et somme si la valeur est présente dans une certaine colonne

Question

est Ci-dessous un ensemble d'échantillons de données de données:

y<-c("A1","B1", "C2", "A1", "B1","C1", "A1","B2", "C3", "A1", "B1", "C4", "A1", "B1","C4", "A1","B2", "C4", "A1","B1", "C4", "A1", "B1", "C4") 
    test<- data.frame(matrix(y, nrow = 3, ncol = 8)) 
    colnames(test) <- c("Learn_1", "Car_1", "Car_2", "Fan_1", "Fan_2", "Fan_3","Kart_1", "God_1") 
    test 

Est-il possible en utilisant une fonction appliquer à boucle à travers chaque colonne, mais la dernier et résumer le nombre de fois qu'une valeur est présente seulement si trouvé dans la dernière colonne d'une base de données (utilisant ainsi ma dernière colonne comme un index pour rechercher)? Je sais que je peux le faire en utilisant une boucle for, mais est assez long, peut-être un moyen de le faire en utilisant une fonction d'application?

Answer 1

Si vous cherchez le nombre de fois une valeur correspondant à la valeur de la dernière colonne se trouve, par ligne, cela fonctionne:

apply(test,1,FUN= function(x) length(which(x[-8]==x[8])))

Vous pouvez facilement adapter à un nombre quelconque de colonnes et même l'ajouter comme une nouvelle colonne.

EDIT:

Si elle est pour l'ensemble des données, vous pouvez utiliser:

test<-as.matrix(test); 
table(test[,-8])[match(test[,8],names(table(test[,-8])))] 

après votre propre code.