小编use*_*130的帖子

我正在努力将误差棒放在堆积条上的正确位置.正如我在之前的帖子中读到的那样,我使用ddply来堆叠错误栏.然后,这改变了堆叠的顺序,所以我订购了因子.现在看来,错误条在一组条形图上是正确的而在另一组条形图上是正确的.我想要的是一个如下图所示的图表,只是显示带有误差条的标准误差.我列出了原始数据和ddply数据以及数据集的输入.

Suz2$org <- factor(Suz2$org, levels = c('fungi','bacteria'),ordered = TRUE)

library(plyr) 
plydat <- ddply(Suz2,.(org, group, time),transform,ybegin = copy - se,yend = copy + se) 

colvec <-c("blue", "orange")

ggplot(plydat, aes(time, copy)) + 
  geom_bar(aes(fill = factor(org)), stat="identity", width = 0.7) +
  scale_fill_manual(values = colvec) +
  facet_wrap(~group,nrow = 1)+
  geom_errorbar(aes(ymax=ybegin , ymin= yend ),width=.5) +
  theme(panel.background = element_rect(fill='white', colour='white'), 
        panel.grid = element_line(color = NA),
        panel.grid.minor = element_line(color = NA),
        panel.border = element_rect(fill = NA, color = "black"),
        axis.text.x  = element_text(size=10, colour="black", face = "bold"), …

我有以下数据集和代码,并且还显示了dput()的输出.我想在y轴上绘制日志(N2012 $ Rate)列,在x轴上绘制位置,并按月垂直分割,然后按气体分割.图表在视觉上有效,但没有为因子分配正确的数据点.我不确定我做错了什么.对不起笨拙的代码,我是R的新手并自学了.

我还希望N2O面板为黄色,N2面板为蓝色.这也没有发生,我不知道为什么.

数据

    Location.Month Gas     Rate Month Location log(N2012$Rate)
1   HighBank July  N2    24.00  July HighBank       3.1780538
2   HighBank July  N2   309.00  July HighBank       5.7333413
3   HighBank July N2O    92.00  July HighBank       4.5217886
4   HighBank July N2O    45.00  July HighBank       3.8066625
5    LowBank July  N2   582.00  July  LowBank       6.3664704
6    LowBank July  N2    27.00  July  LowBank       3.2958369
7    LowBank July N2O   299.00  July  LowBank       5.7004436
8    LowBank July N2O    99.00  July  LowBank       4.5951199
9      Basin July  N2   219.00 …

对于此图,我想将图例拆分为2个单独的图例.一个显示脉冲湿地为圆形,阴影对应湿地编号,一个显示静态湿地为三角形,灰色阴影对应湿地编号.然后水文学的传说就没有必要了,我想摆脱它.

这就是我想要的传奇看起来像(但当然更小.这是在PowerPoint中完成的,只是为了演示).

我正在粘贴下面的数据和代码.

数据

      Date Hydrology Wetland Temp   Layer
1   15-Jun    Pulsed     One 21.9 Surface
2   15-Jun    Pulsed     One 21.0  Bottom
3    1-Jul    Pulsed     One 28.8 Surface
4    1-Jul    Pulsed     One 23.5  Bottom
5   10-Jul    Pulsed     One 31.8 Surface
6   10-Jul    Pulsed     One 22.6  Bottom
7   14-Jul    Pulsed     One 23.0 Surface
8   14-Jul    Pulsed     One 21.4  Bottom
9   15-Aug    Pulsed     One 28.8 Surface
10  15-Aug    Pulsed     One 28.5  Bottom
11   7-Nov    Pulsed     One 12.1 Surface
12   7-Nov    Pulsed     One  9.9 …