ggplot误差棒添加

参考自《R Graphics Cookbook》

本文针对ggplot2添加误差棒的一种方法：使用geom_errorbar()语法

library(ggplot2)

library(gcookbook)

library(dplyr)

一、柱形图加误差棒

#筛选部分数据来作图

ce_mod <- cabbage_exp %>%

filter(Cultivar == "c39")

ce_mod

#制图

ggplot(ce_mod, aes(x = Date, y = Weight)) +

geom_col(fill = "white", colour = "black") +

geom_errorbar(aes(ymin = Weight - se, ymax = Weight + se),

width = 0.2)

二、折线图加误差棒

#制图

ggplot(ce_mod, aes(x = Date, y = Weight )) +

geom_line(aes(group = 1)) +

geom_point(size = 4) +

geom_errorbar(aes(ymin = Weight - se, ymax = Weight + se),

width = 0.2)

三、对于分组的柱形图加误差线：

分组数据添加误差线与分组的柱形图的原理相同，都需告知ggplot2其组内成员的位置为分开并列排放的，否则为上下堆砌样式；即position = "dodge"

3、1 对分组柱形图 不 添加position = "dodge"的误差棒效果：上下堆砌的

#制图

ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +

geom_col(position = "dodge") +

geom_errorbar(aes(ymin = Weight - se, ymax = Weight + se),

width = .2, size =2)

3.2 对分组柱形图添加position = "dodge"的误差棒效果：组内左右排列的

#制图

ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +

geom_col(position = "dodge") +

geom_errorbar(aes(ymin = Weight - se, ymax = Weight + se),

position = "dodge", width = .2, size =2)

#可以发现组内的误差棒不再堆砌，而是两个左右组成一组，同时其顶端各自的宽度都变短了(应该是两个加起来的width是原来的一个)

3.3

问题来了，上图的误差棒虽然左右分组了，但是默认贴在一起的，那么此时要让误差棒组内并列的dodge参数与柱形图组内的一致

柱形图的dodge默认是0.9, 因此二者须一致，误差棒才能显示在柱形图的中间位置

ggplot(cabbage_exp, aes(x = Date, y = Weight, fill = Cultivar)) +

geom_col(position = "dodge") +

geom_errorbar(aes(ymin = Weight - se, ymax = Weight + se),

position = position_dodge(0.9), width = .2)

#注意：position = "dodge"是position = position_dodge()的简写，但若要涉及到调整具体参数则必须全写

四、对于分组的折线图加误差棒：

而对于分组的折线图来说，往往是形成n条折线，而实际上这些折线通常在x轴上可以算作是堆积的；

因此也可以通过position_dodge语言设置其组内的位置是否分开

4.1 通常是组内不分开的，即堆积的，也就是dodge为0

#首先设置一个整体的dodge值，应用到点、线、误差棒，三者要一致

pd <- position_dodge(0)

#制图

ggplot(cabbage_exp, aes(x = Date, y = Weight,

#注意设置group告知分组

colour = Cultivar, group = Cultivar)) +

geom_errorbar(aes(ymin = Weight - se, ymax = Weight + se),

width = 0.2, size = 1,

colour = "black", position = pd) +

geom_line(position = pd, size = 1) +

geom_point(position = pd, size = 4)

4.2 左右分开的，即dodge为不为0，值越大，组内元素的距离会越远

pd <- position_dodge(0.5)

#制图

ggplot(cabbage_exp, aes(x = Date, y = Weight,

colour = Cultivar, group = Cultivar)) +

geom_errorbar(aes(ymin = Weight - se, ymax = Weight + se),

width = 0.2, size = 1,

colour = "black", position = pd) +

geom_line(position = pd, size = 1) +

geom_point(position = pd, size = 4)

五、注意

离散型变量被映射到colour和fill的图形属性时(如柱形图)，此变量默认即为分组变量；但在误差线的例子中需要用group语法手动告知ggplot2分组分组。

误差棒的语法一般要先写，否则会遮盖其他更重要的元素如点、线。

六、总结

劝退。

1.首先将原始数据输入excel表中。

2.点击‘插入’，在插入选项中点击图表选项。

3.进入图表选项后，点击柱状图，按自己的需要进行下列 *** 作选项中功能的选择，作出柱状图。

4.根据数据，求平均值，计算标准差。

5.鼠标指针停在柱子上，双击进入，选择进入‘’误差线Y‘’，然后根据自己的需要进行选择，最后点确定

先分别输入数据 包括x坐标，数值，和s.d. 如下图

然后点菜单栏plot>columns/bars>column，会让你设置x，y坐标及error分别选好，如下图

然后点ok就行了，剩下的就是修图了

最简单的画柱状图方法

1.jpg

2.jpg

---