Discussion :

[couturierclaire]

Pour créer cette liste j'ai utilisé:

Code :

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

Sales=list(Marc=c(35,45,60,80,67,51),Jean=c(41,39,NA,83,70,59),Thomas=c(56,67,83,38,52,84),Georges=c(39,82,45,67,55,NA),Nicolas=c(78,65,34,39,50,63))

Ma problème est: je veux voir les résultats de ces 5 personnes (vendeurs) au cours des 3 premiers mois.

J'ai donc utilisé:

Code :

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

Sales$Marc[1:3];Jean[1:3];Thomas[1:3];Georges[1:3];Nicolas[1:3]

Est-ce qu'il y a moyen de résoudre ce problème autrement? Et surtout est-il possible de le faire sans le point virgule ";" juste en une instruction?

[tototode]

Bonjour,

la fonction lapply est très utile pour travailler sur une liste, lapply(Sales, "[", 1:3).

cdlt

[xavier-Pierre]

bonjour,
version tidyverse

Code :

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

(purrr::map(Sales,~.x[1:3] ))

[couturierclaire]

Je vous remercie beaucoup! Effectivement ça marche bien. Une autre question: écrire une fonction qui supprime les composants d'une liste avec au moins une valeur manquante

Voici mon code:

Code :

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

1
2
3
4
answer<-function(x){
    if(x>0) Sales[c("Jean", "Georges")] <- NULL 
    else print('Too low')
}

Mais je trouve que ma réponse n'est pas super. Y a-t-il un moyen d'écrire une fonction de détection qui permet de supprimer le ou les composants (par exemple Jean) dès lors qu'il y a au moins une valeur manquante NA?

[xavier-Pierre]

bonjour , avec le package purrr

Code :

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

Sales_no_NA <- keep(Sales,~all(!is.na(.x)),~.x)

bonne journée