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.

Reply via email to