Displaying 2 results from an estimated 2 matches for "radlabels".
Did you mean:
padlabel
2002 Oct 17
0
Polar plot, circular plot (angular data)
...seq(0, 2 * pi, length = 360/4 + 1)
for (rad in rpretty) {
if (rad > 0)
lines(rad * cos(grid), rad * sin(grid), col = grid.col,
lwd = grid.lwd)
}
if (rlabel.method != 0) {
if (rlabel.method == 1)
radLabels <- 1:length(rpretty)
if (rlabel.method == 2)
radLabels <- 2:length(rpretty)
if (rlabel.method == 3)
radLabels <- 1:(length(rpretty) - 1)
if (rlabel.method == 4) {
if (length(rpretty) > 2)...
2002 Nov 08
0
Polar plot, circular plot (angular data): II
...p$cartesian(rad, grid), ...)
}
}, outer.circular.grid = function (...)
{
grid <- seq(0, 2 * pi, length = 360/4 + 1)
lines(pp$cartesian(max(pp$rpretty), grid), ...)
}, radial.axis.labels = function (method = 1, ...)
{
if (!is.null(method)) {
if (method == 1)
radLabels <- 1:length(pp$rpretty)
if (method == 2)
radLabels <- 2:length(pp$rpretty)
if (method == 3)
radLabels <- 1:(length(pp$rpretty) - 1)
if (method == 4) {
if (length(pp$rpretty) > 2)
radLabels <- 2:(length(pp$...