R help - Jul 2005 - bubble.plot() - standardize size of unit circle

Hello,

I wrote a wrapper for symbols() that produces a
bivariate bubble plot, for use when plot(x,y) hides
multiple occurrences of the same x,y combination (e.g.
if x,y are integers).
Circle area ~ counts per bin, and circle size is
controlled by 'scale'.
Question: how can I automatically make the smallest
circle the same size as a standard plot character,
rather than having to approximate it using 'scale'?

#Function:
bubble.plot<-function(x,y,scale=0.1,xlab=substitute(x),ylab=substitute(y),...){
z<-table(x,y)
xx<-rep(as.numeric(rownames(z)),ncol(z))
yy<-sort(rep(as.numeric(colnames(z)),nrow(z)))
id<-which(z!=0)
symbols(xx[id],yy[id],inches=F,circles=sqrt(z[id])*scale,xlab=xlab,ylab=ylab,...)}

#Example:
x<-rpois(100,3)
y<-x+rpois(100,2)
bubble.plot(x,y)


		
___________________________________________________________ 
How much free photo storage do you get? Store your holiday

Thanks- 'sizeplot' didn't come up in any of my
searches.

Dan


--- Jim Lemon <bitwrit at ozemail.com.au> wrote:
> Dan Bebber wrote:
> > Hello,
> > 
> > I wrote a wrapper for symbols() that produces a
> > bivariate bubble plot, for use when plot(x,y)
> hides
> > multiple occurrences of the same x,y combination
> (e.g.
> > if x,y are integers).
> > Circle area ~ counts per bin, and circle size is
> > controlled by 'scale'.
> > Question: how can I automatically make the
> smallest
> > circle the same size as a standard plot character,
> > rather than having to approximate it using
> 'scale'?
> > 
> Ben Bolker's "sizeplot" in the plotrix package does
> this using the 
> standard plotting symbol 1.
> 
> Jim
> 


		
___________________________________________________________ 
How much free photo storage do you get? Store your holiday

Hi,
>>>>> "Dan" == Dan Bebber <danbebber at
yahoo.co.uk>
>>>>>     on Thu, 21 Jul 2005 12:05:45 +0100 (BST) writes:
    Dan> Hello,
    Dan> I wrote a wrapper for symbols() that produces a
    Dan> bivariate bubble plot, for use when plot(x,y) hides
    Dan> multiple occurrences of the same x,y combination (e.g.
    Dan> if x,y are integers).
    Dan> Circle area ~ counts per bin, and circle size is
    Dan> controlled by 'scale'.

I'm not answering your question, but still, I need to ask/tell
this:

Why don't use  sunflowerplot() instead?

The excellent researchers who invented sunflower plots in the
late 70s early 1980s knew well about "bubble" alternatives and
much about drawbacks of such bubbles
{mainly the perception laws of areas vs lengths ..}

That's why they came up with the sunflowers as improvement ..
See 'References' in   help(sunflowerplot)

Regards,
Martin Maechler, ETH Zurich




    Dan> Question: how can I automatically make the smallest
    Dan> circle the same size as a standard plot character,
    Dan> rather than having to approximate it using 'scale'?

    Dan> #Function:
    Dan>
bubble.plot<-function(x,y,scale=0.1,xlab=substitute(x),ylab=substitute(y),...){
    Dan> z<-table(x,y)
    Dan> xx<-rep(as.numeric(rownames(z)),ncol(z))
    Dan> yy<-sort(rep(as.numeric(colnames(z)),nrow(z)))
    Dan> id<-which(z!=0)
    Dan>
symbols(xx[id],yy[id],inches=F,circles=sqrt(z[id])*scale,xlab=xlab,ylab=ylab,...)}

    Dan> #Example:
    Dan> x<-rpois(100,3)
    Dan> y<-x+rpois(100,2)
    Dan> bubble.plot(x,y)


		
    Dan> ___________________________________________________________ 
    Dan> How much free photo storage do you get? Store your holiday

    Dan> ______________________________________________
    Dan> R-help at stat.math.ethz.ch mailing list
    Dan> https://stat.ethz.ch/mailman/listinfo/r-help
    Dan> PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html


    Dan> !DSPAM:42df82ae77251002021314!