BStegmaier

From BStegmaier

Required

Needs["ErrorBarPlots`"];

ErrorBars in ListPlot

ErrorListPlot[{{{x0,y0},ErrorBar[dx1,dy1]},...}]

Colored Error Boxes

ErrorListPlot[
   {
      {{1, 1}, ErrorBar[0.2, 0.3]},
      {{2, 2}, ErrorBar[0.2, 0.3]},
      {{3, 4}, ErrorBar[0.2, 0.5]},
      {{4, 8}, ErrorBar[1, 2]}
   },
   PlotStyle -> {Red, PointSize[0.015]}, 
   PlotRange -> All, Frame -> True,
   ErrorBarFunction -> Function[
      {coords, errs},
      {
         Opacity[0.4],
         Yellow,
         EdgeForm[ Directive[Opacity[0.2], Red] ],
         Rectangle[coords + {errs[[1, 1]], errs[[2, 1]]}, coords + {errs[[1, 2]], errs[[2, 2]]}]
      }
   ]
]