[R] Draw Overlapping Circles with shaded tracks

Sun Dec 31 15:13:15 CET 2017

Dear All:

Thank you very much for all of you.

I just have one more thing. Is there a way to fill the borders with small
dots, may be different sizes.

I tried to do it, but it looks ugly.

Here what I tried:

library(plotrix)

plot(0:10, 0:10, type="n",axes=FALSE,xlab="",ylab="")   #### 0:5,

draw.circle(4,5,radius=3,border="#ff0000aa", lwd=75)

draw.circle(4,5,radius=2.50,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.55,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.60,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.65,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.70,border="red",lty=3,lwd=3)

draw.circle(4,5,radius=2.75,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.80,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.85,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.90,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=2.95,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.0,border="red",lty=3,lwd=3)

draw.circle(4,5,radius=3.05,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.10,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.15,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.20,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.25,border="red",lty=3,lwd=3)

draw.circle(4,5,radius=3.30,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.35,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.40,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.45,border="red",lty=3,lwd=3)
draw.circle(4,5,radius=3.50,border="red",lty=3,lwd=3)

draw.circle(7.5,5,radius=3,border="#0000ffaa",lwd=75)

draw.circle(7.5,5,radius=2.50,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.55,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.60,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.65,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.70,border="blue",lty=3,lwd=3)

draw.circle(7.5,5,radius=2.75,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.80,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.85,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.90,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=2.95,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.0,border="blue",lty=3,lwd=3)

draw.circle(7.5,5,radius=3.05,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.10,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.15,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.20,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.25,border="blue",lty=3,lwd=3)

draw.circle(7.5,5,radius=3.30,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.35,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.40,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.45,border="blue",lty=3,lwd=3)
draw.circle(7.5,5,radius=3.50,border="blue",lty=3,lwd=3)

Once again thank you very much

abou

______________________

*AbouEl-Makarim Aboueissa, PhD*

*Professor of Statistics*

*Department of Mathematics and Statistics*
*University of Southern Maine*

On Sun, Dec 31, 2017 at 8:40 AM, Marc Girondot via R-help <
r-help at r-project.org> wrote:

> Another solution:
>
> library("HelpersMG") plot(0:10,type="n",axes=FALSE,xlab="",ylab="",
> asp=1) ellipse(center.x = 3, center.y = 5, radius.x = 5, radius.y = 5,
> lwd=10, col=NA, border=rgb(red = 1, green = 0, blue=0, alpha = 0.5))
> ellipse(center.x = 8, center.y = 5, radius.x = 5, radius.y = 5, lwd=10,
> col=NA, border=rgb(red = 0, green = 1, blue=0, alpha = 0.5))
>
>
> (Without the graphic example, it is difficult to know what tit was
> supposed to do !)
>
> Marc
>
> Le 31/12/2017 à 14:10, John Kane via R-help a écrit :
> > That code nees the plotrix package:
> > library(plotrix)
> > pdf("circles.pdf")
> > plot(0:10,type="n",axes=FALSE,xlab="",ylab="")
> > draw.circle(4,5,radius=3,border="#ff0000aa",lwd=10)
> > draw.circle(6,5,radius=3,border="#0000ffaa",lwd=10)
> > dev.off()
> >
> >
> >
> >
> >      On Friday, December 29, 2017, 6:06:32 PM EST, Jim Lemon <
> drjimlemon at gmail.com> wrote:
> >
> >   Hi Abou,
> > Without an illustration it's hard to work out what you want. here is a
> > simple example of two circles using semi-transparency. Is this any
> > help?
> >
> > pdf("circles.pdf")
> > plot(0:10,type="n",axes=FALSE,xlab="",ylab="")
> > draw.circle(4,5,radius=3,border="#ff0000aa",lwd=10)
> > draw.circle(6,5,radius=3,border="#0000ffaa",lwd=10)
> > dev.off()
> >
> > Jim
> >
> > On Fri, Dec 29, 2017 at 9:45 PM, AbouEl-Makarim Aboueissa
> > <abouelmakarim1962 at gmail.com> wrote:
> >> Dear All:
> >>
> >>
> >> I am wondering if there is a way in R to draw these two circles with
> shaded
> >> tracks in both circles using R, and make both circles uncovered. I am
> >> trying to make it in MS words, but I could not. Your help will be highly
> >> appreciated.
> >>
> >>
> >> In my previous post I added the image of the two circles, but the post
> >> never published. I just thought to resent the post again without the
> image.
> >>
> >> with many thanks
> >> abou
> >> ______________________
> >>
> >>
> >> *AbouEl-Makarim Aboueissa, PhD*
> >>
> >> *Professor of Statistics*
> >>
> >> *Department of Mathematics and Statistics*
> >> *University of Southern Maine*
> >>
> >>          [[alternative HTML version deleted]]
> >>
> >> ______________________________________________
> >> R-help at 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.
> > ______________________________________________
> > R-help at 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 at 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 at 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]]