Combina leyendas de color y forma en una sola leyenda

Estoy creando un gráfico en ggplot a partir de un diseño de estudio 2 x 2 y me gustaría usar 2 colores y 2 símbolos para clasificar mis 4 combinaciones de tratamiento diferentes. Actualmente tengo 2 leyendas, una para los colores y otra para las dos formas. ¿Cómo puedo combinarlos en una sola leyenda, así que tengo un círculo azul, un círculo rojo, un triángulo azul y un triángulo de lectura?Combina leyendas de color y forma en una sola leyenda

Algunos datos:

state1 <- c(rep(c(rep("N", 7), rep("Y", 7)), 2)) 
year <- rep(c(2003:2009), 4) 
group1 <- c(rep("C", 14), rep("E", 14)) 
group2 <- paste(state1, group1, sep = "") 
beta <- c(0.16,0.15,0.08,0.08,0.18,0.48,0.14,0.19,0.00,0.00,0.04,0.08,0.27,0.03,0.11,0.12,0.09,0.09,0.10,0.19,0.16,0.00,0.11,0.07,0.08,0.09,0.19,0.10) 
    lcl <- c(0.13,0.12,0.05,0.05,0.12,0.35,0.06,0.13,0.00,0.00,0.01,0.04,0.20,0.00,0.09,0.09,0.06,0.06,0.07,0.15,0.11,0.00,0.07,0.03,0.05,0.06,0.15,0.06) 
    ucl <- c(0.20,0.20,0.13,0.14,0.27,0.61,0.28,0.27,0.00,1.00,0.16,0.16,0.36,0.82,0.14,0.15,0.13,0.13,0.15,0.23,0.21,0.00,0.15,0.14,0.12,0.12,0.23,0.16) 
data <- data.frame(state1,year,group1,group2,beta,lcl,ucl)

Terreno:

library(ggplot2) 
pd <- position_dodge(.65) 
ggplot(data = data, aes(x = year, y = beta, colour = state1, group = group2, shape = group1)) + 
    geom_point(position = pd, size = 4) + 
    geom_errorbar(aes(ymin = lcl, ymax = ucl),colour = "black", width = 0.5, position = pd) + 
    scale_colour_hue(name = "Treatment & State", #Legend label, use darker colors 
        labels = c("Control", "Exclosure"), 
        l = 40) + 
    scale_shape(name = "State", labels = c("Non-F", "Flwr"))

Fuente

2012-09-13 N Brouwer

con su 'y = estimate' supongo estimación es beta? –

también 'forma' debe ser' group1' ¿verdad? –

¿quieres un círculo azul, un círculo rojo, un triángulo azul y un triángulo rojo? –

Es necesario utilizar idénticos name y labels valores tanto para la escala forma y color.

error

pd <- position_dodge(.65) 
ggplot(data = data,aes(x= year, y = beta, colour = group2, shape = group2)) +  
    geom_point(position = pd, size = 4) + 
    geom_errorbar(aes(ymin = lcl, ymax = ucl), colour = "black", width = 0.5, position = pd) + 
    scale_colour_manual(name = "Treatment & State", 
         labels = c("Control, Non-F", "Control, Flwr", "Exclosure, Non-F", "Exclosure, Flwr"), 
         values = c("blue", "red", "blue", "red")) + 
    scale_shape_manual(name = "Treatment & State", 
        labels = c("Control, Non-F", "Control, Flwr", "Exclosure, Non-F", "Exclosure, Flwr"), 
        values = c(19, 19, 17, 17))

enter image description here

Fuente

2012-09-13 17:23:36

¡Maravilloso! Gracias por presentarme scale_colour_manual y scale_shape_manual –

Solo una pequeña nota, esto funciona igual de bien con las escalas no manuales –

Otra nota: hay problemas con el uso de scale_fill_manual en lugar de scale_colour_manual para formas rellenas. Para remediar esto, parece ser necesario anular la configuración con 'guides (fill = guide_legend (override.aes = list (fill = ...)))' como en esta pregunta: http://stackoverflow.com/ questions/12488905/why-wont-the-ggplot2-legend-combine-manual-fill-and-scale-values – Unstack

Círculo rojo, círculo azul, triángulo rojo, triángulo azul como lo pidió:

ggplot(data =data,aes(x= year, y = beta, shape=group2, colour=group2,group = group2)) + 
geom_errorbar(aes(ymin = lcl, ymax = ucl),colour = "black", width = 0.5, position = pd) + 
geom_point(position = pd, size = 4) + 
scale_colour_manual(values=c("red","blue","red","blue")) + 
scale_shape_manual(values=c(19,19,17,17)) + 
scale_fill_hue(name="Treatment & State", #Legend label, use darker colors 
labels=c("Control", "Exclosure"),l=40)

enter image description here

Fuente

2012-09-13 17:23:21

Combina leyendas de color y forma en una sola leyenda

Respuesta

Cuestiones relacionadas