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分组分组。

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

六、总结

劝退。

origin柱状图添加误差棒作用是展示实验的误差范围。根据查询相关公开信息，处理实验数据时需要添加误差棒来展示实验的误差范围，记录误差确保实验正常进行。Origin是科研写作中常见的画图工具之一，也是专为windows用户量身打造的一款集合统计、图像处理、峰值处理等功能的软件。

1、首先选中前三列数据，依次选择插入柱状图，生成柱状图后点击右上图标添加按钮，添加误差线。

2、其次在d出的参数框中，选择更多选项，误差量，自定义。

3、最后选择第四列的SD值，即可绘制误差线。另外根据需要，还可以在误差线里面选择只显示“正偏差”。

---