我的数据 growth:
[data]
group day mean se
1 Ber.Con 0 30.00 0.43
2 Ber.SE 0 31.10 0.30
3 Qyuan.Con 0 27.67 0.38
4 Qyuan.SE 0 27.88 0.44
5 Ber.Con 3 28.14 1.30
6 Ber.SE 3 26.44 0.54
7 Qyuan.Con 3 28.76 1.11
8 Qyuan.SE 3 25.07 0.72
9 Ber.Con 5 35.42 1.12
10 Ber.SE 5 25.82 0.49
11 Qyuan.Con 5 38.90 1.36
12 Qyuan.SE 5 30.07 1.04
13 Ber.Con 8 47.69 1.56
14 Ber.SE 8 36.24 1.62
15 Qyuan.Con 8 54.93 1.34
16 Qyuan.SE 8 43.97 0.98
17 Ber.Con 12 59.12 1.72
18 Ber.SE 12 49.72 2.17
19 Qyuan.Con 12 71.56 2.10
20 Qyuan.SE 12 55.90 1.52
[/data]
我要做带有误差棒的直方图,日龄作为 x 轴,代码如下:
<br />
graph2 <- ggplot(data = growth, aes(x = factor(day), y = mean)) +<br />
geom_bar(aes(fill = group), colour = "black", position = "dodge") +<br />
geom_errorbar(aes(ymax = mean + se, ymin = mean - se), width = 0.2,<br />
position = position_dodge(width = 0.90))<br />
graph2<br />
代码中对误差棒进行了 dodge,但是图形并没有 dodge,是不是我的代码有误?还请大侠指教啊!
</p>