The additional element comes from this code: geom_point(aes(color = VegType, shape = VegType, size = 10))
Take the size argument outside the aes() statement and the legend will disappear: geom_point(aes(color = VegType, shape = VegType), size = 10) The aes() statement maps a variable to a plot aesthetic. In this case you're mapping VegType to color and shape. You want to *set* the size aesthetic to a constant value, and that is done by assigning the value 10 to the size aesthetic outside of aes(). Dennis On Tue, Nov 19, 2013 at 4:35 PM, Matthew Van Scoyoc <sco...@gmail.com> wrote: > No dice. I still get the "10" legend element. > Thanks for the quick reply. > Cheers, > > MVS > ===== > Matthew Van Scoyoc > Graduate Research Assistant, Ecology > Wildland Resources Department <http://www.cnr.usu.edu/wild/> & Ecology > Center <http://www.usu.edu/ecology/> > Quinney College of Natural Resources <http://cnr.usu.edu/> > Utah State University > Logan, UT > > <mvansco...@aggiemail.usu.edu>https://sites.google.com/site/scoyoc/ > ===== > Think SNOW! > > > On Tue, Nov 19, 2013 at 5:12 PM, David Winsemius > <dwinsem...@comcast.net>wrote: > >> >> On Nov 19, 2013, at 3:44 PM, Matthew Van Scoyoc wrote: >> >> > I can't get the fine tuning right with my legend. I get an extra legend >> > element "10" which is the point size in my plot. Can someone help me get >> rid >> > of this extra element? Additionally I would also like to reduce the size >> of >> > the legend. >> > >> > If you want to reproduce my figure you can download my data in csv >> format >> > here >> > < >> https://github.com/scoyoc/EcoSiteDelineation/blob/master/VegNMDS_scores.csv >> >> >> > . >> > >> > Here is my code... >> > >> >> veg.nmds.sc = read.csv("VegNMDS_scores.csv", header = T) >> > >> >> nmds.fig = ggplot(data = veg.nmds.sc, aes(x = NMDS1, y = NMDS2)) >> >> nmds.fig + geom_point(aes(color = VegType, shape = VegType, size = 10)) >> + >> >> scale_colour_manual(name = "Vegetation Type", >> >> values = c("blue", "magenta", "gray50", "red", >> >> "cyan3", >> >> "green4", "gold")) + >> >> scale_shape_manual(name = "Vegetation Type", values = c(15, 16, 17, 18, >> >> 15, 16, 17)) + >> >> theme_bw() + >> >> theme(panel.background = element_blank(), panel.grid.major = >> >> element_blank(), >> >> panel.grid.minor = element_blank(), >> >> legend.key = element_rect(color = "white") >> >> ) >> > >> > I have been messing around with >> >> theme(..., legend.key.size = unit(1, "cm")) >> > but I keep getting the error "could not find function unit". I'm not sure >> > why, isn't unit supposed to be part of the legend.key argument? >> >> Try this workaround to what sounds like a bug: >> >> library(grid) >> >> # then repeat the call. >> >> -- >> >> David Winsemius >> Alameda, CA, USA >> >> > > [[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. ______________________________________________ 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.