Adds a "push pin" to an existing 3-d plot
Adds to an existing 3-d perspective plot a push pin to locate a specific point.
pushpin( x,y,z,p.out, height=.05,col="black",text=NULL,adj=-.1,cex=1.0,...)
x |
x location |
y |
y location |
z |
z location |
p.out |
Projection information returned by persp |
height |
Height of pin in device coordinates (default is about 5% of the vertical distance ). |
col |
Color of pin head. |
text |
Optional text to go next to pin head. |
adj |
Position of text relative to pin head. |
cex |
Character size for pin head and/or text |
... |
Additional graphics arguments that are passed to the text function. |
See the help(text) for the conventions on
the adj argument and other options for placing text.
Doug Nychka
drape.plot,persp
# Dr. R's favorite New Zealand Volcano!
data( volcano)
M<- nrow( volcano)
N<- ncol( volcano)
x<- seq( 0,1,,M)
y<- seq( 0,1,,N)
drape.plot( x,y,volcano, col=terrain.colors(128))-> pm
max( volcano)-> zsummit
xsummit<- x[ row( volcano)[volcano==zsummit]]
ysummit<- y[ col( volcano)[volcano==zsummit]]
pushpin( xsummit,ysummit,zsummit,pm, text="Summit")Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.