Re: [R] [FORGED] Re: draw stripes in a circle in R

[jeanphilippe.fontaine]

Envoyé depuis mon appareil Samsung

 Message d'origine 
De : Rolf Turner  
Date : 14/06/2017  22:53  (GMT+01:00) 
À : David Winsemius  
Cc : r-help@r-project.org 
Objet : Re: [R] [FORGED] Re: draw stripes in a circle in R 

On 15/06/17 05:29, David Winsemius wrote:
> 
>> On Jun 14, 2017, at 10:18 AM, David Winsemius  wrote:
>>
>>
>>> On Jun 14, 2017, at 9:46 AM, Jeff Newmiller  
>>> 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 
>>>  wrote:
 dear R users,

 I would like to fill a circle with yellow stripes instead of a uniform
 yellow color. To draw the circle I used the following command after
 having loaded the (very nice !) plotrix library :
> 
> I finally understood the question and it needs a hack to the draw.circle 
> function in plotrix since the angle and density arguments don'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 <- cos(angles) * radius[circle] + x
>  yv <- sin(angles) * radius[circle] * ymult + y
>  polygon(xv, yv, border = border, col = col, lty = lty, 
>density=density, angle=angle,
>  lwd = lwd)
>  }
>  invisible(list(x = xv, y = yv))
> }
> 
> Now run your call to pdf with draw.circle2 instead of draw.circle.

This is just idle curiosity, since I'm not really able to contribute 
anything useful, but I can't resist asking:  When I try to run the OP's 
code I get an error:

> Error in alpha("red", 0.4) : could not find function "alpha".

Sorry for the lack of precision, alpha is just to add some transparency to the 
color. This alpha parameter ranges from 0 fully transparent to 1, full color.I 
don't remember having loaded any package to use this function, I think it is 
there in base R.
Why does this (apparently) not happen to anyone else?  Why does the 
universe pick on *me*?  What is the function "alpha()"?  Where is it to 
be found?

Searching on "alpha" is of course completely unproductive; there are far 
too many (totally irrelevant) instances.

cheers,

Rolf

-- 
Technical Editor ANZJS
Department of Statistics
University of Auckland
Phone: +64-9-373-7599 ext. 88276

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Re: [R] draw stripes in a circle in R

[jeanphilippe.fontaine]

Sorry for that. Yes my question was whether or not and how is it possible to 
fill a circle of yellow stripes in R? Is it something that I have to precise in 
the color argument?
Thanks, best


Envoyé depuis mon appareil Samsung

 Message d'origine 
De : Jeff Newmiller  
Date : 14/06/2017  18:46  (GMT+01:00) 
À : r-help@r-project.org, jean-philippe , 
r-help@R-project.org 
Objet : Re: [R] draw stripes in a circle in R 

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 
 wrote:
>dear R users,
>
>I would like to fill a circle with yellow stripes instead of a uniform 
>yellow color. To draw the circle I used the following command after 
>having loaded the (very nice !) plotrix library :
>
>library(plotrix)
>pdf("MWE.pdf",width=8, height=8)
>plot(seq(-12.5,-8.7,length.out=100),seq(-11.3,-8.3,length.out=100),type="l",col="red",xlim=c(-12.5,-8.7),ylim=c(-11.5,-8.5))
>par(new=T)
>plot(seq(-12.5,-8.7,length.out=100),seq(-11.7,-8.7,length.out=100),type="l",col="red",xlim=c(-12.5,-8.7),ylim=c(-11.5,-8.5))
>par(new=T)
>polygon(c(seq(-12.5,-8.7,length.out=100), 
>rev(seq(-12.5,-8.7,length.out=100))), c(seq(-11.3,-8.3,length.out=100),
>
>rev(seq(-11.7,-8.7,length.out=100))),
> col = alpha("red",0.4), border = NA)
>par(new=T)
>draw.circle(-12.85,-10.9,0.85,nv=1000,border=NULL,col="yellow",lty=1,lwd=1)
>dev.off()
>
>It looks a bit ugly since they are not real data, but it is the
>simplest 
>MWE example that I found.
>
>
>Thanks, best
>
>
>Jean-Philippe

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.