使用R中的ggplot2绘制组均值条形图。

Question

使用R中的ggplot2绘制组均值条形图。

3

我正在使用“gapminder”软件包中的数据集，其中有一个变量“continent”和一个变量“lifeExp”（预期寿命）。我使用了 -mutate- 函数来计算每个大洲的 lifeExp 均值和标准差，并将这个变量添加到数据集中（因此每个观测值都会有一个 lifeExp 的平均值），结果如下: 1 当我想要使用 -ggplot2- 包来绘制“continent”和“mean”之间生命期望均值的条形图时，似乎 R 会像这样对“mean”值进行求和: 2 我的代码是:

gap2007 %>%
  ggplot(., aes(x=continent, y=mean, fill=continent))+
  geom_bar(stat='identity')+
  geom_errorbar(aes(ymin=mean-sd, ymax=mean+sd))+
  xlab("Continent") + ylab("Mean life expectancy") +
  labs(title="Barplot of Average Life Expectancy with Standard Deviations")

如何在组平均水平上绘制不对平均值求和的图形？谢谢！

- YYM17

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Zhiqiang Wang · Accepted Answer

看起来你是通过country计算了lifeExp的平均值，然后按continent绘制了这些值。最简单的解决方案是在ggplot之前获取数据，通过continent计算mean和sd值：

library(tidyverse)
library(gapminder)

df<-gapminder %>% 
  group_by(continent) %>% 
  summarize(
    mean = mean(lifeExp), 
    median = median(lifeExp), 
    sd = sd(lifeExp)
  ) 

df %>%
  ggplot(., aes(x=continent, y=mean, fill=continent))+
  geom_bar(stat = "identity")+
  geom_errorbar(aes(ymin=mean-sd, ymax=mean+sd))+
  xlab("Continent") + ylab("Mean life expectancy") +
  labs(title="Barplot of Average Life Expectancy with Standard Deviations")

^{使用reprex包（v0.3.0）于2020年01月16日创建}