5444656 5. 5000000 0. 5156045 unlist(lapply(maliste, quantile, probs=c(0. 75))) ## E1. 25% E1. 75% E2. 25% E2. 75% E3. 25% E3. 75% ## -1. 5197191 3. 2500000 7. 7500000 0. 8437486 Et il est aussi possible d'utiliser un vecteur en entrée, plutôt qu'une liste: nom <- names(iris) nom ## [1] "" "" "" "" "Species" class(nom) ## [1] "character" NOM <- unlist(lapply(nom, toupper)) NOM ## [1] "" "" "" "" "SPECIES" Donc, si on résume: lapply permet d'appliquer une fonction sur tous les éléments d'une liste, et fournit les résultats sous forme de liste. MAIS …, on peut facilement transformer la liste de sortie en vecteur, grâce à la fonction unlist(). Et, on peut aussi donner en entrée un vecteur d'éléments! Comment appliquer une fonction à une liste ? : lapply ; sapply ? - Astuces et scripts R. Ce n'est donc pas pour rien que j'ai toujours eu du mal à m'y retrouver! Le s est pour simplify ( de la sortie)! Après ce qu'on vient de voir, on se dit forcément que c'est une bonne idée! Allez, on regarde de plus près comment ça fonctionne: maliste <- list(E1=rnorm(10), E2=1:10, E3=runif(10)) res <- sapply(maliste, mean) res ## -0.
Le jeu de données collecte pour chaque espèce des informations sur leur longueur et leur largeur. En guise de travail préalable, nous pouvons calculer la médiane de la longueur pour chaque espèce. tapply() est un moyen rapide d'effectuer ce calcul. data(iris)tapply(iris$, iris$Species, median) ## setosa versicolor virginica ## 3. 4 2. 8 3. 0
5])) # Nombre d'éléments supérieur à 1, 5 2015-07-08
Malheureusement c'est pas encore son nom... Lapply sous réserve. Encore merci, Message par Logez Maxime » 21 Fév 2011, 16:49 re, bon j'ai pris ça trop à la légère une possibilité: Code: Tout sélectionner tab <- (matrix(rnorm(100), 20)) colnames(tab) <- letters[1:5] lapply(tab, function(x) names(tab)[meric(gsub("\\D", "", deparse(substitute(x)), perl=T))]) Un code bien compliqué juste pour un nom de variable. Surement plus simple avec une boucle. Message par matthieu faron » 22 Fév 2011, 09:48 Merci pour ta suggestion, malheureusement je n'ai pas réussi à la faire marcher (probablement par manque de compétence). Toutefois ca m'a donné une idée pour "une" solution, pas très élégante mais je la mets quand même si ca peut servir un jour à quelqu'un.
La fonction lapply() permet d'appliquer une fonction à chaque élément d'une liste. Titre d'un graphique appelé par fonction et lapply - Groupe des utilisateurs du logiciel R. Le premier argument est une liste sur laquelle on veut appliquer la fonction placée en deuxième argument (mean, sum, sd, function(x)…). x <- list(a = 1:7, b = runif(n = 5, min = 10, max = 20), booleen = c(TRUE, FALSE, FALSE, TRUE)) y<-lapply(x, mean) #de manière plus générale, cela équivaut à: y<-apply(x, function(x) mean(x)) # on ajoute function(x) devant une les fonctions non-prédéfinies dans R z<-sapply(x, mean) # la fonction sapply est équivalente à lapply # mais lapply retourne une liste tandis que la fonction sapply retourne un vecteur numérique, une matrice ou quand cela n'est pas possible, une liste. 2015-07-07
75)) ## 25% 5. 1 2. 8 1. 6 0. 3 ## 75% 6. 4 3. 3 5. 1 1. Chapitre 8 Les fonctions apply | Apprendre à programmer avec R. 8 ## [1] "matrix" "array" Si ces fonctions *apply() v ous intéressent vous pouvez aussi explorer les fonctions vapply() et mapply(). Vous trouverez des informations ici, et là. Je vous recommande aussi de regarder du côté du package purrr et ces fonctions map() qui permettent aussi d'appliquer une même fonction (ou une même série de fonctions) à chaque élément d'un ensemble de données. Vous trouverez une introduction au package purrr et une liste de ressources pour apprendre à l'utiliser, dans mon article: Liste de ressources pour le package purrr Ce petit mémo m'est très utile, et j'espère qu'il en sera de même pour vous. N'hésitez pas à me partager en commentaire des exemples de vos propres utilisations de ces fonctions apply. Cela aidera certainement ceux qui débutent! Si cet article vous a plu, ou vous a été utile, et si vous le souhaitez, vous pouvez soutenir ce blog en faisant un don sur sa page Tipeee 3 réponses "Bel article d'apprentissage!
Problèmes rencontrés avec les peaux foncées Les taches pigmentaires Plusieurs personnes ont une peau foncée qui est très sensible, ou réactive, à des facteurs irritants ou agressants et celle-ci réagit en créant des taches foncées. Le meilleur exemple de cela est l'acné. Un bouton rouge durera une semaine, mais la tache qui en résultera peut demeurer pendant des mois si elle n'est pas traitée. En premier lieu, il faut bien contrôler l'acné pour en prévenir l'apparition. Attention! Nous vous mettons en garde contre les produits anti acné dont plusieurs sont très irritants et asséchants lesquels peuvent causer eux aussi une décoloration de la peau. Une fois l'acné contrôlée, pour les taches rebelles et persistantes, il existe des crèmes qui aident à régulariser la pigmentation et des traitements laser pour accélérer l'élimination des taches. Traitement anti tache peau noire sur. Poils incarnés et folliculite cicatrisante Pour d'autres personnes à la peau foncée, ce sont les poils et les cheveux épais et frisés qui peuvent devenir une source de problèmes en créant des poils incarnés.
Enfin, mieux vaut éviter les produits éclaircissants à base d'hydroquinone (substance interdite en France depuis 2000) ou de cortisone qui vont décaper la peau, l'agresser et provoquer à terme des taches par phénomène réactionnel... en rentrer ensuite dans un engrenage qui met la peau en danger! Comment faire pour se débarrasser des taches sur les peaux noires ?. L'importance de l'hydratation pour les peaux noires et métisses Pour prendre soin de sa peau, il ne faut pas non plus oublier de l'hydrater correctement. Les peaux noires sont plus séborrhéiques que les autres, mais en zone tempérée, elles se déstabilisent et se déshydratent, un vrai casse-tête pour la cosmétique, car elles sont à la fois mixtes (voire grasses) et déshydratées. Il faut aussi souligner les habitudes cosmétiques de certaines femmes, qui peuvent abuser des savons décapants pour l'hygiène de leur peau et des éponges abrasives, sans compter celles qui la gomment tous les jours. Il est donc fortement recommandé d'hydrater sans graisser et nettoyer avec beaucoup de douceur. Misez donc sur des gommages doux une à deux fois par semaine et des produits nettoyants sans parabène ni parfum pour éviter les allergies et petits boutons.
Les séances de peeling sont à réaliser tous les 15 jours pendant deux mois. Au départ une supplémentation en zinc par voie orale sera conseillée et si l'acné est trop sévère une antibiothérapie peut s'avérer nécessaire. On pourra noter au fil des traitements une amélioration notable de la séborrhée, une diminution des microkystes et également une diminution de l'imprégnation pigmentaire. Je conseille de faire suivre ces séances par un traitement spécifique pour les taches afin d'unifier le teint et de donner de la lumière à la peau avec la méthode Skineclipse offrant un traitement personnalisé innovant associant la luminothérapie à des produits cosmétiques dépigmentants. Traitement anti tache peau noire mettre. Ce concept spécifique prend en charge les cernes et certaines parties du corps, mains, pieds, genoux, fesses, zones souvent plus pigmentés, demande fréquente des patientes qui ont le désir d'harmoniser la différence de couleur de ces zones. Le traitement des cicatrices hyper pigmentées peut être avantageusement complété par la technique d'AQUA REJUVENATION® consistant à pratiquer une micro dermabrasion par projection de poudre de noyaux de fruit suivie d'une projection sous haute pression de micros jets de solution dépigmentante.