-----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
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)