Add error bars to a plot.
Add vertical error bars.
errorBars( x, mean, ci, ci.l = NULL, minmax = NULL, horiz = FALSE, border = FALSE, ... )
x |
Vector with x-values (or y-values in case |
mean |
Vector with means. |
ci |
Vector with errors or confidence bands, e.g. SE values. If
|
ci.l |
Optional: vector with error to calculate lower confidence band. |
minmax |
Optional argument, vector with two values indicating the minimum and maximum value for the error bars. If NULL (default) the error bars are not corrected. |
horiz |
Logical: whether or not to plot horizontal error bars. Defaults to FALSE (plotting vertical error bars). |
border |
Logical: whether or not to add a border around the error
bars. Defaults to FALSE (no border added).
Color and width of the borders can be adjusted using |
... |
Optional graphical parameters (see |
Jacolien van Rij
Other Functions for plotting:
addInterval(),
add_bars(),
add_n_points(),
alphaPalette(),
alpha(),
check_normaldist(),
color_contour(),
dotplot_error(),
drawDevArrows(),
emptyPlot(),
fill_area(),
getCoords(),
getFigCoords(),
getProps(),
gradientLegend(),
legend_margin(),
marginDensityPlot(),
plot_error(),
plot_image(),
plotsurface(),
sortBoxplot()
# example InsectSprays from R datasets
InsectSprays$type <- ifelse( InsectSprays$spray %in% c('A', 'B', 'F'), 1,2)
avg <- with(InsectSprays, tapply(count, list(spray), mean))
sds <- with(InsectSprays, tapply(count, list(spray), sd))
# barplot:
b <- barplot(avg, beside=TRUE, main='Insect Sprays', ylim=c(0,20))
errorBars(b, avg, sds, xpd=TRUE, length=.05)
# constrain error bars to max and min of plot:
b <- barplot(avg, beside=TRUE, main='Insect Sprays', ylim=c(0,20))
errorBars(b, avg, sds, minmax=c(0,20), xpd=TRUE, length=.05)
# add borders:
b <- barplot(avg, beside=TRUE, main='Insect Sprays', ylim=c(0,20),
col=1, border=NA)
errorBars(b, avg, sds, minmax=c(0,20), xpd=TRUE, length=.05, border=TRUE)
# change layout:
b <- barplot(avg, beside=TRUE, main='Insect Sprays', ylim=c(0,20),
col=1, border=NA)
errorBars(b, avg, sds, minmax=c(0,20), xpd=TRUE, border=TRUE,
length=.05, col='blue', # settings for error bars
border.length=.1, border.col='yellow', border.lwd=5) # settings border
# line plot with asymmetric fake errors:
emptyPlot(toupper(letters[1:6]), 20, main='Averages', xlab='Spray')
ci.low <- abs(rnorm(6, mean=2))
ci.high <- abs(rnorm(6, mean=4))
errorBars(1:6, avg, ci.high, ci.l= ci.low, length=.05, lwd=2)
points(1:6, avg, pch=21, type='o', lty=3, lwd=2,
bg='white', xpd=TRUE)
# also horizontal bars possible:
errorBars(10, 1, 1.2, horiz=TRUE, col='red')Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.