bar3d.ade {epade}

3D Bar-Plot

Description

Draw pseudo 3d Bar-Plot

Usage

bar3d.ade(x, y=NULL, data=NULL, xw=0.5, zw=1,
          main=NULL, xlab=NULL, ylab=NULL, zlab=NULL,
          xticks=NULL, yticks=NULL, zticks=NULL,
          col=NULL, tcol=NULL, bgcol=NULL, lcol=NULL, alpha=NULL,
          axes=TRUE, fgbox=TRUE, bgbox=TRUE, wall=0)

Arguments

x

• a table or matrix

• a numeric vector or factor

• a string with the name of the variable in the data.frame

• a formula x~y

y

• a numeric vector or factor

• a string with the name of the variable in the data.frame

data

data.frame if used strings of formul for x and y

xw

width of bars in x direction

zw

width of bars in z direction

main

an overall title for the plot

xlab

a title for the x axis

ylab

a title for the y axis

zlab

a title for the z axis

xticks

a vector of labels for the x axis

yticks

the number of ticks on the y axis or a vector of exact ticks

zticks

a vector of labels for the z axis

col

• a color for the bars

• a vector of colors

• a matrix of colors

tcol

color of the text in whole plot

bgcol

the background color for plot dekoration

lcol

bar edges color

alpha

a parameter in [0, 1] for semi-transparency of bars

axes

logical asking whether to plot axis

fgbox

logical asking whether to draw 3d box in forderground (dotted part of box)

bgbox

logical asking whether to draw 3d box (if FALSE, set fgbox to FALSE too)

wall

a number between 0 and 6 for selection the dekoration style of the plot.

See Also

bar.plot.ade

Examples

bar3d.ade(rpois(200,2), rpois(200,2), wall=3)
x <- seq(-16, 16, length= 48)
y <- x
f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r }
z <- outer(x, y, f)
z[is.na(z)] <- 1
bar3d.ade(z, wall=2, xw=1, zw=0.2, axes=FALSE, bgbox=FALSE,
xlab='', ylab='', zlab='', alpha=1, col='lavender')