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)
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-bounces at r-project.org [mailto:r-help-bounces at 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 at 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.
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 at r-project.org so others can contribute or learn something. Bill Dunlap Spotfire, TIBCO Software wdunlap tibco.com> -----Original Message----- > From: bibek sharma [mailto:mbhpathak at 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) > cars <- 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 <wdunlap at 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-bounces at r-project.org [mailto:r-help-bounces at 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 at 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.
>> 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:mbhpathak at 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 <wdunlap at 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 at r-project.org so others can contribute > > or learn something. > > > > Bill Dunlap > > Spotfire, TIBCO Software > > wdunlap tibco.com > > > > > >> -----Original Message----- > >> From: bibek sharma [mailto:mbhpathak at 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 <wdunlap at 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-bounces at r-project.org [mailto:r-help-bounces at 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 at 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.