Discussion :

[hhenris]

Bonjour à tous,

Me voilà bloqué dans mon projet en R. Je ne sais pas comment écrire ma condition du if pour qu'il me compte le nombre de fois que j'ai l'expression : {"equipment":[]} dans ma colonne "ressources"..
En effet, j'obtiens le warning suivant : la condition a une longueur > 1 et seul le premier élément est utilisé

Bien à vous,

Hugo

[Puppet_Master]

Bonjour.

Je suis loin d'être un expert de R, mais j'ai l'impression que vous utilisez R comme un langage procédural ce qui est peu efficace.

Pour faire du 'comptage' dans un vecteur, vous pouvez utiliser la commande table, par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
# creation du dataset de test
r <- c( '{"equipment":[]}', '{"equipment":[test1]}', '{"equipment":[test2]}', '{"equipment":[loltest]}' )
res <- c()
for ( i in seq( from = 1, to = 100, by = 1 ) ) {
  res <- c( res, r[round(runif(1, 1, length(r)))])
}
d <- data.frame( ressources = res )
 
# comptage des ressources
table(d$ressources)
 
# comptage de '{"equipment":[]}'
table(d$ressources)['{"equipment":[]}']

[tototode]

Bonjour,

effectivement pour être efficace en R il faut "vectoriser" au maximum ces calculs c'est a dire utiliser des fonctions qui permettent de faire la même opération sur toutes les valeurs d'un coup plus tôt que de faire les opérations valeur par valeur.
Ici on peut directement tester si la chaîne de caractère est égale a celle que l'on recherche directement sur toutes les valeurs et ensuite de faire la somme de ce vecteur logique parce que les TRUE vont se transformer en 1 et les FALSE en 0. Après on peut aussi essayer de chercher si la chaîne de caractère qui nous intéresse est comprise dans notre texte avec la fonction grepl qui du coup peut amener plus de flexibilité mais qui va demander de faire attention au métacaractère et de placer des antislashs devant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
r <- c( '{"equipment":[]}', '{"equipment":[test1]}', '{"equipment":[test2]}', '{"equipment":[loltest]}' )
j <- sum(r == '{"equipment":[]}')
# ou 
j <- sum(grepl('\\{"equipment":\\[\\]\\}', r))
 
# pour avoir k
length(r)-j

Pour ton tableau ça donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
j <- sum(grepl('\\{"equipment":\\[\\]\\}', summary[, "ressources"]))
k <- nrow(summary)-j

Une remarque en passant, il est fortement déconseillé de donner pour nom d'objet le nom de fonctions de R comme summary.
Une autre par rapport à la boucle de Puppet. Il est préférable d'initialiser un vecteur du bon mode et de la bonne longueur plutôt que de l'écraser à chaque itération avec la fonction c. Si tu veux tirer au hasard des valeurs plusieurs fois il y a la fonction sample(r, 100, replace = T) qui peut remplacer la boucle.

cdlt

[Puppet_Master]

Bonjour @tototode

Merci pour la remarque . J'en prend bonne note et je corrige le code proposé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
# creation du dataset de test
r <- c( '{"equipment":[]}', '{"equipment":[test1]}', '{"equipment":[test2]}', '{"equipment":[loltest]}' )
d <- data.frame( ressources = sample(r, 100, replace = T) )
 
# comptage des ressources
table(d$ressources)
 
# comptage de '{"equipment":[]}'
table(d$ressources)['{"equipment":[]}']

C'est bien plus propre ... merci encore