Adding bars to an existing plot.
Adding bars to an existing plot.
add_bars(x, y, y0 = NULL, width = 1, horiz = FALSE, ...)
x |
Numeric vector with x-positions of bars. |
y |
Numeric vector with height of the bars. |
y0 |
Optional numeric value or vector with the onset(s) of the bars. When \codey0 is not specified, the lowest value of the y-axis is used. |
width |
Numeric value, determining the width of the bars in units of the x-axis. |
horiz |
Logical value: whether or not to plot horizontal bars. Defaults to FALSE. |
... |
Other arguments for plotting, see \code\link[graphics]par. |
Jacolien van Rij
Other Functions for plotting:
addInterval(),
add_n_points(),
alphaPalette(),
alpha(),
check_normaldist(),
color_contour(),
dotplot_error(),
drawDevArrows(),
emptyPlot(),
errorBars(),
fill_area(),
getCoords(),
getFigCoords(),
getProps(),
gradientLegend(),
legend_margin(),
marginDensityPlot(),
plot_error(),
plot_image(),
plotsurface(),
sortBoxplot()
# hypothetical experiment:
adults = stats::rpois(100, lambda = 5)
children = stats::rpois(100, lambda = 4)
newd <- data.frame(Adults = table( factor(adults, levels=0:15) ),
Children = table( factor(children, levels=0:15) ) )
newd <- newd[,c(1,2,4)]
names(newd)[1] <- 'value'
# barplot of Adults:
b <- barplot(newd$Adults.Freq, beside=TRUE, names.arg=newd$value,
border=NA, ylim=c(0,30))
# overlay Children measures:
add_bars(b, newd$Children.Freq, col='red', density=25, xpd=TRUE)
# variants:
b <- barplot(newd$Adults.Freq, beside=TRUE, names.arg=newd$value,
border=NA, ylim=c(0,30))
add_bars(b+.1, newd$Children.Freq, width=.85, col=alpha('red'),
border=NA, xpd=TRUE)
emptyPlot(c(-30,30), c(0,15), v0=0, ylab='Condition')
add_bars(-1*newd$Children.Freq, 0:15, y0=0, col=alpha('blue'),
border='blue', horiz=TRUE)
add_bars(newd$Adults.Freq, 0:15, y0=0, col=alpha('red'),
border='red', horiz=TRUE)
mtext(c('Children', 'Adults'), side=3, at=c(-15,15), line=1, cex=1.25,
font=2)
# adding shadow:
b <- barplot(newd$Adults.Freq, beside=TRUE, names.arg=newd$value,
width=.9,
col='black', border=NA)
add_bars(b+.2, newd$Adults.Freq+.2, y0=.2, width=.9,
col=alpha('black', f=.2), border=NA, xpd=TRUE)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.