我的数据 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>

<br />
graph2 <- ggplot() +<br />
  geom_bar(data = growth,<br />
           aes(x = factor(day), y = mean, fill = group),<br />
           colour = "black", stat = "identity", position = "dodge") +<br />
  geom_errorbar(data = growth,<br />
                aes(x = factor(day), ymax = mean + se, ymin = mean - se, fill = group),<br />
                stat = "identity", position = "dodge")<br />
</p>

ggplot2里面好多theme有关的arguments都不能正确工作了,wickham大神什么时候能fix一下啊[s:14]