3

I have a plot with a color legend, and would like to add a total/average geom_... series to it.

For example:

d <- ggplot(data=mtcars, aes(x=cyl, y=mpg, color=factor(vs))) + geom_point()
d + stat_summary(fun.y = "mean", fun.ymin = "mean", fun.ymax = "mean", colour = "black")

example plot

I would like the total geom_ color to be black (which is working in my example), and to have a label of "total" in the legend (which is missing from the example). The new "total" label should be the last value in the legend.

In this example the factor levels of vs are 0 and 1. This oversimplifies my case in two ways:

  1. I have lots of factors levels, so I am looking for a solution that does not require manual manipulation of the colors/labels in the legend.
  2. "Total" is naturally last in this data set (since it comes after 0 and 1, alphabetically), but in my data set it comes somewhere in the middle. So the factors might need to be reordered? For the sake of this example data set assume the "total" should be listed first, to show how to reorder the labels.

Lastly, there will be times that I don't think stat_summary will be able to calculate the mean correctly, so I would like the flexibility of calculating the mean or total manually via a second data set. For example:

d + geom_point(data = as.data.table(mtcars)[, list(avg = mean(mpg)), by = "cyl"] ... )
dnlbrky
  • 9,396
  • 2
  • 51
  • 64
  • 1
    Is [this](http://stackoverflow.com/q/11839360/707145) helpful? – MYaseen208 May 09 '13 at 03:19
  • Thanks for the link. Both of the answers to your similar question involve manually specifying the color and labels, which would be too cumbersome for my application. I will edit my question to indicate that I have many factor levels and I want to create this chart for many different data sets (with different levels for each). – dnlbrky May 09 '13 at 03:33
  • Have you tried subset and group in the plot? – KLDavenport Sep 06 '13 at 14:46

1 Answers1

4

One approach would be to override another unused geom for total, ala the answer to this related question:

d <- ggplot(data=mtcars, aes(x=cyl, y=mpg, color=factor(vs))) + geom_point()
d + stat_summary(fun.y = "mean", fun.ymin = "mean", fun.ymax = "mean", 
                 colour = "black", aes(shape="total"), geom="point") +
    guides(colour=guide_legend(order=1), shape=guide_legend(title=NULL, order=2))

resultant plot

Community
  • 1
  • 1
scttl
  • 460
  • 3
  • 12