
pushpin( x,y,z,p.out, height=.05,col="black",text=NULL,adj=-.1,cex=1.0,...)
adj
argument and other options for placing text.# 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")
Run the code above in your browser using DataLab