pointsCircle             package:ecolitk             R Documentation

_F_u_n_c_t_i_o_n_s _t_o _p_l_o_t _c_i_r_c_u_l_a_r _r_e_l_a_t_e_d _f_i_g_u_r_e_s

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

     Functions to plot circular related figures

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

     linesCircle(radius, center.x = 0, center.y = 0, edges = 300, ...)
     polygonDisk(radius, center.x = 0, center.y = 0, edges=300,
     ...)
     arrowsArc(theta0, theta1, radius, center.x = 0, center.y = 0, edges = 10,
               length = 0.25, angle = 30, code = 2, ...)
     pointsArc(theta0, theta1, radius, center.x = 0, center.y = 0, ...)
     linesArc(theta0, theta1, radius, center.x = 0, center.y = 0, ...)
     polygonArc(theta0, theta1, radius.in, radius.out,
                center.x = 0, center.y = 0,
                edges = 10,
                col = "black",
                border = NA,
                ...)

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

theta0, theta1: start and end angles for the arc

  radius: radius of the circle 

radius.in: inner radius 

radius.out: outer radius 

center.x, center.y: Coordinates for the center of the circle (default
          to (0, 0))

   edges: number of edges the shape is made of 

     col: 

  border: border (see 'polygon')

length, angle, code: see the corresponding parameters for the function
          'arrows'

     ...: optional graphical paramaters

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

     Details to come... for now the best to run the examples and
     experiment by yourself...

_V_a_l_u_e:

     Function only used for their border effects.

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

     laurent

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

     par(mfrow=c(2,2))
     n <- 10
     thetas <- rev(seq(0, 2 * pi, length=n))

     rhos <- rev(seq(1, n) / n)

     xy <- polar2xy(rhos, thetas)
     colo <- heat.colors(n)

     plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n")
     for (i in 1:n)
       linesCircle(rhos[i]/2, xy$x[i], xy$y[i])

     plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n")
     for (i in 1:n)
       polygonDisk(rhos[i]/2, xy$x[i], xy$y[i], col=colo[i])

     plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n", xlab="", ylab="")
     for (i in 1:n)
       polygonArc(0, thetas[i],
                  rhos[i]/2, rhos[i],
                  center.x = xy$x[i], center.y = xy$y[i], col=colo[i])

     plot(0, 0, xlim=c(-2, 2), ylim=c(-2, 2), type="n", xlab="", ylab="")
     for (i in (1:n)[-1]) {
       linesCircle(rhos[i-1], col="gray", lty=2)
       polygonArc(thetas[i-1], thetas[i],
                  rhos[i-1], rhos[i], col=colo[i],
                  edges=20)
       arrowsArc(thetas[i-1], thetas[i],
                  rhos[i] + 1, col=colo[i],
                  edges=20)
     }
       

