>> subplot(pie(sec,col=color1,labels=" ",radius=0.05,border=NA,cex=0.8), >> x-3,y=15)
Did you mean x=3 instead of x-3? Bill Dunlap Spotfire, TIBCO Software wdunlap tibco.com > -----Original Message----- > From: bibek sharma [mailto:mbhpat...@gmail.com] > Sent: Friday, November 30, 2012 4:48 PM > To: William Dunlap > Subject: Re: [R] (no subject) > > Hello Bill, > Your code works perfectly and got a nice plot. No problem there. > But I wanted to center the pie diagram obtained from > > cars <- c(1,1,1,1,1,1,1,1) > color1 <- > c("grey80","grey80","grey80","grey80","gray80","grey30","grey20","gray10") > pie(cars,col=color1,labels=" ",radius=0.05,border=NA,cex=0.8)) > > Some how it did not work. > > Here is what I tried, > > library(visualFields) > library(car) > a<-saplocmap$p24d2 > ordinate<-data.frame(a$xod,a$yod) > ordinate > plot( a$xod,a$yod, xlim=c(-30,30), > ylim=c(-30,30),xlab="",ylab="",type="p", data=ordinate) > abline(h=0,v=0) > > subplot(pie(1:8),x=-3,y=21,size=c(0.5,0.5)) > subplot(pie(1:8),x=3,y=21,size=c(0.5,0.5)) > subplot(pie(1:8),x=9,y=21,size=c(0.5,0.5)) > subplot(pie(1:8),x=15,y=-15,size=c(0.5,0.5)) > subplot(pie(1:8),x=-3,y=15, size=c(0.5,0.5)) > subplot(pie(1:8),x=-9,y=15,size=c(0.5,0.5)) > subplot(pie(1:8),x=9,y=-21,size=c(0.5,0.5)) > subplot(pie(1:8),x=3,y=-21,size=c(0.5,0.5)) > > > Below code did not put the pic diagram on the location specified > > a<-saplocmap$p24d2 > ordinate<-data.frame(a$xod,a$yod) > ordinate > plot( a$xod,a$yod, xlim=c(-30,30), > ylim=c(-30,30),xlab="",ylab="",type="p", data=ordinate) > abline(h=0,v=0) > ## par(new=TRUE) > sec <- c(1,1,1,1,1,1,1,1) > color1 <- > c("grey80","grey80","grey80","grey80","gray80","grey30","grey20","gray10" > ) > ##pie(sec,col=color1,labels=" ",radius=0.05,border=NA,cex=0.8) > subplot(pie(sec,col=color1,labels=" ",radius=0.05,border=NA,cex=0.8), > x-3,y=15) > > > Any suggestion is much appreciated! > Thank you in advance, > Bibek. > > > > > > > > > > > On Fri, Nov 30, 2012 at 4:26 PM, William Dunlap <wdun...@tibco.com> wrote: > > Please be more specific. > > > > How did it not work? Did my example not work? Was there an > > error message or the wrong picture? Did you install and load > > the TeachingDemo's package so subplot() was in scope? Did > > the pie chart drawn by subplot() look different (aside its placement > > and size) from the one you originally got? > > > > Also, continue the cc to R-help@r-project.org so others can contribute > > or learn something. > > > > Bill Dunlap > > Spotfire, TIBCO Software > > wdunlap tibco.com > > > > > >> -----Original Message----- > >> From: bibek sharma [mailto:mbhpat...@gmail.com] > >> Sent: Friday, November 30, 2012 3:37 PM > >> To: William Dunlap > >> Subject: Re: [R] (no subject) > >> > >> Thank you Bill. > >> I want pie of equal sector. I tried your code but did not work.dont know > >> why? > >> Any suggestion? > >> > >> > >> library(visualFields) > >> library(car) > >> a<-saplocmap$p24d2 > >> ordinate<-data.frame(a$xod,a$yod) > >> ordinate > >> plot( a$xod,a$yod, xlim=c(-30,30), > >> ylim=c(-30,30),xlab="",ylab="",type="p", data=ordinate) > >> abline(h=0,v=0) > >> bcars <- c(1,1,1,1,1,1,1,1) > >> color1 <- > c("grey80","grey80","grey80","grey80","gray80","grey30","grey20","gray10" > >> ) > >> subplot(pie(cars,col=color1,labels=" > >> ",radius=0.05,border=NA,cex=0.8),x=3,y=15) > >> > >> > >> > >> > >> On Fri, Nov 30, 2012 at 2:26 PM, William Dunlap <wdun...@tibco.com> wrote: > >> > Try subplot() from the TeachingDemos package. E.g., > >> > > >> > > plot(c(1,2,3), c(1,3,2), xlim=c(0,5), ylim=c(0,10)) > >> > > subplot(pie(1:5), x=4, y=6) > >> > > abline(h=6, v=4) > >> > > subplot(pie(1:5), x=1, y=8, size=c(0.5, 0.5)) > >> > > >> > Bill Dunlap > >> > Spotfire, TIBCO Software > >> > wdunlap tibco.com > >> > > >> > > >> >> -----Original Message----- > >> >> From: r-help-boun...@r-project.org > >> >> [mailto:r-help-boun...@r-project.org] On > >> Behalf > >> >> Of bibek sharma > >> >> Sent: Friday, November 30, 2012 2:07 PM > >> >> To: R help > >> >> Subject: [R] (no subject) > >> >> > >> >> Hello R usuer, > >> >> > >> >> The code given below superimposes a pie diagram on another plot > >> >> containing some points. However, I would like to center the pie > >> >> diagram on the xy location on the plot, but not on the center. is > >> >> there any way to re-center pic diagram. > >> >> Any suggestion or better alternative are highly appreciated. > >> >> Thank you in advance for your help. > >> >> > >> >> Regards, > >> >> Bibke > >> >> > >> >> library(visualFields) > >> >> library(car) > >> >> a<-saplocmap$p24d2 > >> >> ordinate<-data.frame(a$xod,a$yod) > >> >> plot( a$xod,a$yod, xlim=c(-30,30), > >> >> ylim=c(-30,30),xlab="",ylab="",type="p", data=ordinate) > >> >> abline(v=0,h=0) > >> >> par(new=TRUE) > >> >> > >> >> # Define cars vector with 8 values > >> >> cars <- c(1,1,1,1,1,1,1,1) > >> >> > >> >> # Define colors in each sector > >> >> > >> >> color1 <- > >> c("grey80","grey80","grey80","grey80","gray80","grey30","grey20","gray10" > >> >> ) ## gray10=<0.0001, gray20<0.001, gray30<0.01, gray40=<0.05, gray > >> >> 80=>0.05 > >> >> # Putting sector levels > >> >> car_labels <- c(1,2,3,4,5,6,7,8) > >> >> car_labels <- paste(car_labels,sep="") > >> >> > >> >> # Create a pie chart with defined heading and custom colors > >> >> # and labels > >> >> > >> >> pie(cars, main="Sectors", col=color1, labels=" ", > >> >> radius=0.05,border=NA, cex=0.8) > >> >> > >> >> ______________________________________________ > >> >> R-help@r-project.org mailing list > >> >> 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@r-project.org mailing list 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.
