errorBars {plotfunctions} | R Documentation |
Add error bars to a plot.
Description
Add vertical error bars.
Usage
errorBars(
x,
mean,
ci,
ci.l = NULL,
minmax = NULL,
horiz = FALSE,
border = FALSE,
...
)
Arguments
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 |
Author(s)
Jacolien van Rij
See Also
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()
Examples
# 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')