polygon                 package:base                 R Documentation

_P_o_l_y_g_o_n _D_r_a_w_i_n_g

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

     `polygon' draws the polygons whose vertices are given in `x' and
     `y'.

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

     polygon(x, y = NULL, col = NA, border = NULL,
             lty = NULL, xpd = NULL, density = -1, angle = 45, ...)

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

     x,y: vectors containing the coordinates of the vertices of the
          polygon.

     col: the color for filling the polygon. The default, `NA', is to
          leave polygons unfilled.

  border: the color to draw the border.  The default, `NULL', uses
          `par("fg")'.  Use `border=0' to omit borders.

     lty: the line type to be used, as in `par'.

     xpd: (where) should clipping take place?  Defaults to
          `par("xpd")'.

 density: density of fill pattern. NOT YET implemented.

   angle: angle of fill pattern. NOT YET implemented.

     ...: graphical parameters can be given as arguments to `polygon'.

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

     `segments' for even more flexibility, `lines', `rect', `box',
     `abline'.

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

     x <- c(1:9,8:1)
     y <- c(1,2*(5:3),2,-1,17,9,8,2:9)
     op <- par(mfcol=c(3,1))
     for(xpd in c(FALSE,TRUE,NA)) {
       plot(1:10, main=paste("xpd =", xpd)) ; box("figure", col = "pink", lwd=3)
       polygon(x,y, xpd=xpd, col = "orange", lty=2, lwd=2, border = "red")
     }
     par(op)

     n <- 100
     xx <- c(0:n, n:0)
     yy <- c(c(0,cumsum(rnorm(n))), rev(c(0,cumsum(rnorm(n)))))
     plot   (xx, yy, type="n", xlab="Time", ylab="Distance")
     polygon(xx, yy, col="gray", border = "red")
     title("Distance Between Brownian Motions")

