pushpin                package:fields                R Documentation

_A_d_d_s _a "_p_u_s_h _p_i_n" _t_o _a_n _e_x_i_s_t_i_n_g  _3-_d _p_l_o_t

_D_e_s_c_r_i_p_t_i_o_n:

     Adds  to an existing 3-d perspective plot  a push pin to locate a 
     specific point.

_U_s_a_g_e:

     pushpin( x,y,z,p.out, height=.05,col="black",text=NULL,adj=-.1,cex=1.0,...)

_A_r_g_u_m_e_n_t_s:

       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.

_D_e_t_a_i_l_s:

     See the help(text) for the conventions on the 'adj' argument and
     other options for placing text.

_A_u_t_h_o_r(_s):

     Doug Nychka

_S_e_e _A_l_s_o:

     drape.plot,persp

_E_x_a_m_p_l_e_s:

     # 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")

