Utilisation stat_summary dans ggplot2 pour calculer la moyenne et de la sd, puis connectez la moyenne des points des barres d'erreur

Dans l'exemple suivant, la Moyenne et la se a été calculé à partir des données brutes et tracées dans barplot. Je veux faire la même chose mais au lieu d'utiliser barplot je veux utiliser des points de connexion. donc, je l'apprécie tellement si quelqu'un peut me montrer comment faire...Merci

exemple:

     data(ToothGrowth)

     ToothGrowth$F3 <- letters[1:2]
     # coerce dose to a factor
     ToothGrowth$dose <- factor(ToothGrowth$dose, levels = c(0.5,1,2))
     # facetting on the third factor
     ggplot(ToothGrowth, aes(y = len, x = supp )) + 
     stat_summary(fun.y = 'mean', fun.ymin = function(x) 0, geom = 'bar', 
     aes(fill =dose), position = 'dodge') +
     stat_summary(fun.ymin = function(x) mean(x) - sd(x), 
           fun.ymax = function(x) mean(x) + sd(x), position ='dodge', 
           geom = 'errorbar', aes(group = dose))+
    facet_wrap(~F3)
Sven:c'est un exemple reproductible --- ToothGrowth est l'ensemble de données de base-R -- merci
Néanmoins, il serait plus évident, si vous incluez data(ToothGrowth).

OriginalL'auteur hema | 2014-01-20

  1. 18

    Vous pouvez utiliser la geom pointrange pour les deux points indiquant les moyens et les errorbars.

    ggplot(ToothGrowth, aes(y = len, x = supp, colour = dose, group = dose)) + 
  stat_summary(fun.y = mean,
               fun.ymin = function(x) mean(x) - sd(x), 
               fun.ymax = function(x) mean(x) + sd(x), 
               geom = "pointrange") +
  stat_summary(fun.y = mean,
               geom = "line") +
  facet_wrap( ~ F3)

    Utilisation stat_summary dans ggplot2 pour calculer la moyenne et de la sd, puis connectez la moyenne des points des barres d'erreur

    Merci, cela a été extrêmement utile. J'ai essayé beaucoup pense que pour obtenir ma sd derrière la moyenne sans avoir à utiliser un autre DF, et c'était le plus élégant ggplot solutino. J'ai utilisé geom = "ribbon", aussi très belle.

    OriginalL'auteur Sven Hohenstein