persp(longleaf, theta=-30, phi=35, spike.args=list(lwd=3), zadjust=1.5)
# negative mark values
X <- longleaf
marks(X) <- marks(X) - 20
persp(X, theta=80, phi=35, neg.args=list(col="red"),
spike.args=list(lwd=3), zadjust=1.2)
# irregular window
Australia <- Window(austates)
Y <- runifrect(70, Frame(Australia))[Australia]
marks(Y) <- runif(npoints(Y))
persp(Y, theta=30, phi=20, col.base="lightblue",
win.args=list(col="pink", border=NA),
spike.args=list(lwd=2), zadjust=1.5)
persp(Y, type="b",
theta=30, phi=20, col.base="lightblue",
win.args=list(col="pink", border=NA),
spike.args=list(lty=3), point.args=list(col="blue"), zadjust=1.5)
Run the code above in your browser using DataLab