Plot Table as Horizontal Sidebars
Plot (x,y) table (matrix or data frame) as horizontal sidebars.
plotSidebars(z, scale = 1, col = lucent("blue", 0.25), ...)z |
data frame or matrix of z-values (e.g., age frequencies) where rows form the plot's y-values and columns describe the grouping variable along the x-axis. |
scale |
numeric scale factor controlling the leftward expansion of z-value bars. |
col |
colour to fill bars. |
... |
additional parameters used by |
Plots z-data as horizontal bars arising from an x-coordinate controlled by
the column names of z. The bars extend left along the y-coordinate
by z*scale from the central x-coordinate.
Steve Martell, International Pacific Halibut Commission, Seattle WA
local(envir=.PBSmodEnv,expr={
oldpar = par(no.readonly=TRUE)
pbsfun = function () {
meanmarg = function(x){x=x[!is.na(x)];
if (length(x)==0 | all(x==0)) NA else sum((x/sum(x))*as.numeric(names(x)))}
data(CCA.qbr,envir=.PBSmodEnv)
plotSidebars(CCA.qbr,scale=4,las=1,border="navyblue",mar=c(4,4,1,1),
lbl=c("Year","Quillback Rockfish Age"),margin=function(x){round(meanmarg(x),0)})
invisible() }
pbsfun()
par(oldpar)
})Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.