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]]
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]]
AbouEl-Makarim Aboueissa
2017-Dec-31 14:13 UTC
[R] Draw Overlapping Circles with shaded tracks
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]]