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
Quelqu'un sait-il comment faire ceci? En vous remerciant de votre attention Matthieu FARON Aline Deschamps Messages: 133 Enregistré le: 11 Mai 2010, 07:49 Contact: Message par Aline Deschamps » 21 Fév 2011, 15:38 Peut-être qu'un code réproductible et minimal serait le bienvenu ici. En effet, en ce qui me concerne je ne vois pas bien à quel moment vous faîtes appel au lapply (la commande paste est-elle incluse dans la fonction utilisée dans le lapply? ). Cordialement, A. Titre d'un graphique appelé par fonction et lapply - Groupe des utilisateurs du logiciel R. D. Message par matthieu faron » 21 Fév 2011, 15:49 Merci de votre réponse. Voici le code en question: Code: Tout sélectionner #la fonction uni1 <- function(var) { survie <- survfit(Surv(delaios, status) ~ var, data=don) lr <- survdiff(Surv(delaios, status) ~ var, data=don) test <- round(pchisq(lr$chisq, df = (dim(lr$n)-1), ), 5) out <- list("Survie"=survie, "Log Rank"=test) if (test<0. 05) { survplot(survie) titre <- paste("Overall Survival:", substitute(var)) print(titre) text(titre[3], xpd=T, x=12, y=1. 1, font=2)} return(out)} # l'appel à lapply lapply(listuni1, FUN=uni1) # la liste (enfin le debut) listuni1 <- list("Site du primitif" = don$primsite, "Loc double" = don$pdouble,... ) En vous remerciant à nouveau pour votre attention Logez Maxime Messages: 3061 Enregistré le: 26 Sep 2006, 11:35 Message par Logez Maxime » 21 Fév 2011, 16:06 enlève le substitute et ça devrait fonctionner.
Dans l'exemple que tu a pris c'est déjà une utilisation plus complexe de sapply puisqu'il est imbriqué dans une fonction. IL y a plus simple pour comprendre le fonctionnement. Par exemple, crée toi une liste de vecteur et tu pourras tenter la commande: ou encore sur un tableau de donnée (un est une liste) si tu fais la même commande qu'au dessus tu auras la moyenne par colonne. Chapitre 8 Les fonctions apply | Apprendre à programmer avec R. Je ne vois pas quoi te dire de plus pour le moment. :) jean lobry Messages: 722 Enregistré le: 17 Jan 2008, 20:00 Contact: Message par jean lobry » 13 Oct 2008, 16:05 Bonjour, la fonction sapply() fait en fait appel à la fonction lapply() et essaye de simplifier le résultat en, typiquement, un vecteur. Donc le plus simple pour comprendre sapply() c'est de commencer à jouer avec lapply() qui va appliquer une même fonction à une liste. Comme les objets de la classe sont aussi des listes, on peut faire par exemple: Code: Tout sélectionner data(rock) lapply(rock, mean) colMeans(rock) sapply(rock, mean) Amicalement, Jean Retourner vers « Questions en cours » Qui est en ligne Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 0 invité
6635282 5. 4673550 class(res) ## [1] "numeric" La fonction sapply fait donc la même chose que la fonction lapply, mais en fournissant directement un vecteur en sortie! Un vecteur… une matrice, si la fonction renvoie plusieurs éléments: res <- sapply(maliste, quantile, probs=c(0. 75)) ## 25% -1. 20998298 3. 25 0. 2139582 ## 75% 0. 04138477 7. Comment faire des comptages dans un data.frame ? apply, lapply, sapply, which - Astuces et scripts R. 75 0. 7128085 ## [1] "matrix" "array" Pas super simplifié, quand même! La fonction tapply permet d'appliquer une fonction sur une variable, par sous-groupe de données, que l'on spécifie en argument. Et les résultats sont fournis sous une structure de type array. Par exemple, on peut obtenir la moyenne des longueurs de sépale pour chaque espèce d'iris: res <- tapply(iris$, iris$Species, mean) ## setosa versicolor virginica ## 5. 006 5. 936 6. 588 ## [1] "array" C'est l' équivalent de la fonction by(), mais sans la mise en forme: by(iris$, iris$Species, mean) ## iris$Species: setosa ## [1] 5. 006 ## ------------------------------------------------------------ ## iris$Species: versicolor ## [1] 5.