Displaying 2 results from an estimated 2 matches for "labdir".
2002 Oct 17
0
Polar plot, circular plot (angular data)
...ol = rlabel.col)
}
}
if (!is.numeric(num.lab)) {
if (pi2.lab & !is.character(text.lab))
t.lab <- expression(0, pi/2, pi, 3 * pi/2)
if (!pi2.lab & is.character(text.lab))
t.lab <- text.lab
labDir <- seq(0, 2 * pi, length = length(t.lab) +
1)[-(length(t.lab) + 1)]
labDir <- fit.rad(theta.zero + (!theta.clw) * labDir -
(theta.clw) * labDir)
text(lab.dist * cos(labDir), lab.dist * sin(labDir),
t.lab, cex = tlabel....
2002 Nov 08
0
Polar plot, circular plot (angular data): II
...pp$cartesian(pp$rpretty, pp$rlabel.axis)
if (len != 0) {
tick <- max(pp$rpretty) * pp$cartesian(len, pp$rlabel.axis +
pi/2)
segments(fpos[, 1], fpos[, 2], fpos[, 1] + tick[1], fpos[,
2] + tick[2], ...)
}
}, angular.labels = function (...)
{
labDir <- NULL
t.lab <- NULL
if (!is.null(pp$text.lab)) {
t.lab <- pp$text.lab
labDir <- seq(0, 2 * pi, length = length(t.lab) + 1)[-(length(t.lab) +
1)]
}
if (is.numeric(pp$num.lab)) {
if (length(pp$num.lab) == 1 && pp$num.lab%%1 ==...