Displaying 1 result from an estimated 1 matches for "drawgrid".
Did you mean:
draw_id
2002 Oct 17
0
Polar plot, circular plot (angular data)
...s.numeric(num.lab) || pi2.lab) {
lab.dist <- lab.dist * (tlabel.offset + 1)
}
if (is.null(overlay)) {
plot.new()
ps <- max(lab.dist, max(rpretty))
plot.window(xlim = c(-ps, ps), ylim = c(-ps, ps), asp = 1)
title(main = main, sub = sub)
}
drawgrid <- function() {
if (dir > 0) {
rDir <- seq(0, 2 * pi, length = dir + 1)[-(dir +
1)]
segments(0, 0, max(rpretty) * cos(rDir), max(rpretty) *
sin(rDir), col = grid.col, lwd = grid.lwd)
}
grid <- seq(0, 2 * p...