StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POstat_function and legends: create plot with two separate colour legends mapped to different variables
text
Body
copied!<p>I would like to combine two different types of plots in one image with ggplot2. Here's the code I use:</p> <pre><code>fun.bar <- function(x, param = 4) { return(((x + 1) ^ (1 - param)) / (1 - param)) } plot.foo <- function(df, par = c(1.7, 2:8)) { require(ggplot2) require(reshape2) require(RColorBrewer) melt.df <- melt(df) melt.df$ypos <- as.numeric(melt.df$variable) p <- ggplot(data = melt.df, aes(x = value, y = ypos, colour = variable)) + geom_point(position = "jitter", alpha = 0.2, size = 2) + xlim(-1, 1) + ylim(-5, 5) + guides(colour = guide_legend("Type", override.aes = list(alpha = 1, size = 4))) pal <- brewer.pal(length(par), "Set1") for (i in seq_along(par)) { p <- p + stat_function(fun = fun.bar, arg = list(param = par[i]), colour = pal[i], size = 1.3) } p } df.foo <- data.frame(A=rnorm(1000, sd=0.25), B=rnorm(1000, sd=0.25), C=rnorm(1000, sd=0.25)) plot.foo(df.foo) </code></pre> <p>As a result, I get the following picture. <img src="https://i.stack.imgur.com/NPKDe.png" alt="my_plot"> However, I'd like to have another legend with colours from red to pink, displaying information about parameters of curves in the lower part of the plot. The problem is the key aesthetics for both parts is the colour, so manual overriding via <code>scale_colour_manual()</code> destroys the existing legend. </p> <p>I understand there's a "one aesthetic -- one legend" concept, but how can I bypass this restriction in this specific case?</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload