Displaying 8 results from an estimated 8 matches for "plotdim".
2017 Jun 14
4
[FORGED] Re: draw stripes in a circle in R
...>
> ------
>
> draw.circle # then copy to console and edit
>
> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
> density=NA, angle=45, lwd = 1 )
> {
> xylim <- par("usr")
> plotdim <- par("pin")
> ymult <- getYmult()
> angle.inc <- 2 * pi/nv
> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
> if (length(col) < length(radius))
> col <- rep(col, length.out = length(radius))
> for (circle in 1:l...
2017 Jun 14
0
draw stripes in a circle in R
...;t get passed in:
First get code for draw.circle:
------
draw.circle # then copy to console and edit
draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
density=NA, angle=45, lwd = 1 )
{
xylim <- par("usr")
plotdim <- par("pin")
ymult <- getYmult()
angle.inc <- 2 * pi/nv
angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
if (length(col) < length(radius))
col <- rep(col, length.out = length(radius))
for (circle in 1:length(radius)) {
xv <- c...
2017 Jun 14
0
[FORGED] Re: draw stripes in a circle in R
...; ------
>> draw.circle # then copy to console and edit
>> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
>> density=NA, angle=45, lwd = 1 )
>> {
>> xylim <- par("usr")
>> plotdim <- par("pin")
>> ymult <- getYmult()
>> angle.inc <- 2 * pi/nv
>> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
>> if (length(col) < length(radius))
>> col <- rep(col, length.out = length(radius))
>>...
2017 Jun 14
3
draw stripes in a circle in R
> On Jun 14, 2017, at 9:46 AM, Jeff Newmiller <jdnewmil at dcn.davis.ca.us> wrote:
>
> I don't see a question. If your question is whether R supports pattern fills, AFAIK it does not. If that is not your question, ask one.
> --
> Sent from my phone. Please excuse my brevity.
>
> On June 14, 2017 7:57:41 AM PDT, jean-philippe <jeanphilippe.fontaine at
2017 Jun 15
2
[FORGED] Re: draw stripes in a circle in R
...ircle # then copy to console and edit
>>> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL,
>col = NA, lty = 1,
>>> density=NA, angle=45, lwd = 1 )
>>> {
>>> xylim <- par("usr")
>>> plotdim <- par("pin")
>>> ymult <- getYmult()
>>> angle.inc <- 2 * pi/nv
>>> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
>>> if (length(col) < length(radius))
>>> col <- rep(col, length.out = length(ra...
2017 Jun 14
1
[FORGED] Re: draw stripes in a circle in R
...>
> ------
>
> draw.circle?? # then copy to console and edit
>
> draw.circle2? <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
>???????????????????????????? density=NA, angle=45,? lwd = 1 )
> {
>????? xylim <- par("usr")
>????? plotdim <- par("pin")
>????? ymult <- getYmult()
>????? angle.inc <- 2 * pi/nv
>????? angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
>????? if (length(col) < length(radius))
>????????? col <- rep(col, length.out = length(radius))
>????? for (circle in 1:l...
2017 Jun 15
1
draw stripes in a circle in R
...e:
>
> ------
>
> draw.circle # then copy to console and edit
>
> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,
> density=NA, angle=45, lwd = 1 )
> {
> xylim <- par("usr")
> plotdim <- par("pin")
> ymult <- getYmult()
> angle.inc <- 2 * pi/nv
> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
> if (length(col) < length(radius))
> col <- rep(col, length.out = length(radius))
> for (circle in 1:l...
2017 Jun 15
0
[FORGED] Re: draw stripes in a circle in R
...console and edit
>>>> draw.circle2 <- function (x, y, radius, nv = 100, border = NULL,
>> col = NA, lty = 1,
>>>> density=NA, angle=45, lwd = 1 )
>>>> {
>>>> xylim <- par("usr")
>>>> plotdim <- par("pin")
>>>> ymult <- getYmult()
>>>> angle.inc <- 2 * pi/nv
>>>> angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)
>>>> if (length(col) < length(radius))
>>>> col <- rep(col, length....