As a starting point perhaps have a look at legend.key.size (unit)
in ?theme. It may do something like what you want with some tweaking. My
quick and dirty example just applies the command to both legends.
pl<-ggplot(dat1,aes(x=Importance,y=Performance,fill=PBF,size=gapsize))+
geom_point(shape=21,colour="black")
pl + theme(legend.key.size = unit(2, "cm"))
John Kane
Kingston ON Canada
> -----Original Message-----
> From: mike.conk...@gfk.com
> Sent: Thu, 31 Oct 2013 21:08:02 +0100
> To: r-help@r-project.org
> Subject: [R] help with ggplot legend specification
>
> I am creating a scatterplot with the following code.
>
> pl<-ggplot(df,aes(x=Importance,y=Performance,fill=PBF,size=gapsize))+
>
> geom_point(shape=21,colour="black")+scale_size_area(max_size=pointsizefactor)
>
> points are plotted where the size of the point is related to a metric
> variable gapsize and the fill color on the point is related to the
> variable PBF which is a 4 level factor. This works exactly as I want
> with the points varying in size based on the metric and being color
> coded. I get 2 legends on the side of the plot, one related to the size
> of the dot and the other showing the color coding. The problem is that
> the dots on the color coding legend are so small that it is impossible to
> discern what color they are. The dots in the plot are large, so it is
> clear what colors they are, but the legend is useless. How can I
> increase the size of the points in the color legend.
>
> pointsizefactor<-5
>
> df
>
> Importance Performance gapsize labels PBF
> q50451 0.7079463 -0.7213622 2 a W
> q50452 0.4489164 -0.5552116 1 b G
> q50453 0.7714138 -0.6940144 5 c F
> q50454 0.6284830 -0.6011352 3 d S
> q50455 0.7131063 -0.6800826 4 e G
> q50456 0.7038184 -0.6026832 6 f S
> q50457 0.5201238 -0.3539732 8 g G
> q50458 0.9195046 -0.8214654 2 h F
> q50459 0.3797730 -0.4184727 1 i W
> q504510 0.8065015 -0.6305470 7 j G
> q504511 0.6062951 -0.4442724 6 k S
> q504512 0.6253870 -0.4478844 8 l G
> q504513 0.3813209 -0.4102167 2 m W
> q504514 0.3813209 -0.3436533 3 n F
> q504515 0.5185759 -0.4365325 5 o G
> q504516 0.5872033 -0.4556244 6 p S
> q504518 0.5397317 -1.0000000 1 q S
> q504519 0.5882353 -0.4674923 9 r S
> q504520 0.4205366 -0.4164087 4 s W
> q504521 0.7616099 -0.3323013 10 t F
> q504522 0.7213622 -0.6088751 7 u G
> q504523 0.6780186 -0.6130031 8 v G
> q504524 0.6904025 -0.3937049 10 w W
> q504525 0.4143447 -0.4669763 4 x W
> q504526 0.5779154 -0.2982456 9 y F
> q504527 0.6718266 -0.3457172 10 z G
>
>
> Thanks all
>
> //Mike
>
> W. Michael Conklin
> Executive Vice President | Marketing Science
> GfK Custom Research, LLC | 8401 Golden Valley Road | Minneapolis, MN,
> 55427
> T +1 763 417 4545 | M +1 612 567 8287
> www.gfk.com<http://www.gfk.com/>
>
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
____________________________________________________________
FREE 3D MARINE AQUARIUM SCREENSAVER - Watch dolphins, sharks & orcas on your
desktop!
______________________________________________
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.
