Quiero producir un diagrama de barras superpuesto con puntos donde ambos tienen leyendas separadas. Además, quiero elegir el color de las barras y el tamaño de los puntos usando los argumentos externosaes(). Como ambos no están mapeados, no se produce ninguna leyenda.

1) ¿Cómo puedo agregar una leyenda manualmente para relleno y tamaño?

library(ggplot2)

d <- data.frame(group = 1:3,    
                prop = 1:3 )

ggplot(d, aes(x=group, y=prop)) +
  geom_bar(stat="identity", fill="red") +
  geom_point(size=5)

Esto es lo que se me ocurrió: utilicé mapeos ficticios y luego modifiqué la leyenda según mis necesidades. Pero este enfoque me parece torpe.

2) ¿Hay alguna forma manual de decir: Agregar una leyenda con este título, estas formas, estos colores, etc.?

d <- data.frame(dummy1="d1",
                dummy2="d2",
                group = 1:3,    
                prop = 1:3 )


ggplot(d, aes(x=group, y=prop, fill=dummy1, size=dummy2)) +
  geom_bar(stat="identity", fill="red") +
  geom_point(size=5) +
  scale_fill_discrete(name="fill legend", label="fill label") +
  scale_size_discrete(name="size legend", label="size label")

Arriba mapeéfill adummy1. Entonces esperaríascale_fill_discrete para alterar esta leyenda. Pero parece modificar elsize leyenda en su lugar.

3) No estoy seguro de qué salió mal aquí. ¿Algunas ideas?