Créer un vecteur à partir de LookUp-Table/fichier CSV dans R

Question

J'ai un fichier CSV, où deux colonnes contiennent un ou plusieurs entiers par cellule.

df <- data.frame(x=c("a","b","a","b"), 
y=c("datatype 1","datatype 1","datatype 2", "datatype 2"), 
z=c("2,3", "1,2","1,2,3,4,5", "3")) 

names(df) <- c("hypothesis", "type", "mass") 

> df 
    hypothesis  type  mass 
1   a datatype 1  2,3 
2   b datatype 1  1,2 
3   a datatype 2 1,2,3,4,5 
4   b datatype 2   3 

Je veux extraire les entiers de la .csv en tant que vecteurs et les affecter à des variables x (1, hypothèse type de données a) et y (2, hypothèse datatype a) dans mon code.

Actuellement, j'utilise subset pour filtrer la table par "type de données" (colonne 2) et which ("hypothèse"/colonne 1) pour obtenir les valeurs de "masse" correspondantes dont j'ai besoin. Dans l'étape suivante, je veux utiliser intersect pour savoir quels éléments sont partagés par x et y variables.

Ma question est, comment puis-je obtenir un contenu de cellules .csv comme "1,2,3" dans un vector, à laquelle la fonction intersect est applicable?

Lorsque j'appelle simplement la cellule, j'obtiens typeofinteger et quand intersect est appliqué, le résultat est character(0). Quand j'Affectez manuellement x <- c(1,2,3,4,5); y <- c(2,3) le résultat est - comme cela devrait être - 2 3

Answer 1

Nous pouvons split la « masse » par le « type », diviser la chaîne en utilisant strsplit, unlist, convertir à numeric, obtenir les unique éléments et appliquer intersect pour trouver les éléments qui sont communs à travers les éléments list

lst <- setNames(lapply(split(df$mass, df$type), function(x) 
     sort(unique(as.numeric(unlist(strsplit(as.character(x), ",")))))), c("x", "y")) 

Reduce(intersect, lst)