ggplot2 multiple scales/legends per aesthetic, revisited [duplicate]

by

I managed to get a satisfactory result by combining grobs from two separately generated plots. I’m sure the solution can be generalized better to accommodate different grob indices …

library(ggplot2)
library(grid)

pd = data.frame(
  letters = strsplit("AGTGACCGACTATCATAGTGACCCAGAATCATAGTGACCGAGTATGAT", "")[[1]],
  species = rep(c("Human", "Armadillo", "Porcupine"), each=16),
  x       = rep(1:16, 3),
  change  = c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
              0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,
              0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0),
  score1  = c(0,0,0,0,0,0,1,1,2,2,2,3,3,3,4,3,
              0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,
              0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
  score2  = c(0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,
              0,0,0,0,2,2,2,2,0,0,0,0,0,0,0,0,
              0,0,0,0,3,3,3,3,0,0,0,0,0,0,0,0)
)


p1=ggplot(pd[pd$score1 != 0,], aes(x=x, y=species)) +
  coord_fixed(ratio = 1.5, xlim=c(0.5,16.5), ylim=c(0.5, 3.5)) +
  geom_tile(aes(fill=score1)) +
  scale_fill_gradient2("Score 1", limits=c(0,4),low="#762A83", mid="white", high="#1B7837", guide=guide_colorbar(title.position="top")) +
  geom_text(data=pd, aes(label=letters, color=factor(change)), size=rel(5), family="mono") +
  scale_color_manual("Change", values=c("black", "#F2A11F"), labels=c("None", "Some"), guide=guide_legend(direction="vertical", title.position="top", override.aes=list(shape = "A"))) +
  theme(panel.background=element_rect(fill="white", colour="white"),
        axis.title = element_blank(),
        axis.ticks.y = element_blank(),
        axis.text.y = element_text(family="mono", size=rel(2)),
        axis.text.x = element_text(size=rel(0.7)),
        legend.text = element_text(size=rel(0.7)),
        legend.key.size = unit(0.7, "lines"),
        legend.position = "bottom", legend.box = "horizontal") +
  ggtitle("Voila, the Score2!")

p2=ggplot(pd[pd$score2 != 0,], aes(x=x, y=species)) +
  coord_fixed(ratio = 1.5, xlim=c(0.5,16.5), ylim=c(0.5, 3.5)) +
  geom_tile(aes(fill=score2)) +
  scale_fill_gradient2("Score 2", limits=c(0,3),low="#1B7837", mid="white", high="#762A83", guide=guide_colorbar(title.position="top")) +
  geom_text(data=pd, aes(label=letters, color=factor(change)), size=rel(5), family="mono") +
  scale_color_manual("Change", values=c("black", "#F2A11F"), labels=c("None", "Some"), guide=guide_legend(direction="vertical", title.position="top", override.aes=list(shape = "A"))) +
  theme(panel.background=element_rect(fill="white", colour="white"),
        axis.title = element_blank(),
        axis.ticks.y = element_blank(),
        axis.text.y = element_text(family="mono", size=rel(2)),
        axis.text.x = element_text(size=rel(0.7)),
        legend.text = element_text(size=rel(0.7)),
        legend.key.size = unit(0.7, "lines"),
        legend.position = "bottom", legend.box = "horizontal") +
  ggtitle("What about Score2?")


p1g=ggplotGrob(p1)
p2g=ggplotGrob(p2)

combo.grob = p1g

combo.grob$grobs[[8]] = cbind(p1g$grobs[[8]][,1:4], 
                              p2g$grobs[[8]][,3:5], 
                              size="first")

combo.grob$grobs[[4]] = reorderGrob(
                          addGrob(p1g$grobs[[4]], 
                                  getGrob(p2g$grobs[[4]], 
                                          "geom_rect.rect", 
                                          grep=TRUE)), 
                          c(1,2,5,3,4))
grid.newpage()
grid.draw(combo.grob)

Two scales in one plot

More Related Contents:

  1. Construct a manual legend for a complicated plot
  2. Animated sorted bar chart with bars overtaking each other
  3. How to plot a hybrid boxplot: half boxplot with jitter points on the other half?
  4. ggplot2 plot area margins?
  5. Add legend to geom_line() graph in r
  6. Align multiple ggplot2 plots with grid
  7. ggplot scale color gradient to range outside of data range
  8. Add a common Legend for combined ggplots
  9. Stacked Bar Plot in R
  10. How to save plots that are made in a shiny app
  11. ggplot plots in scripts do not display in Rstudio
  12. How can I remove empty factors from ggplot2 facets?
  13. How to add a ggplot2 subtitle with different size and colour?
  14. Error in grid.Call(L_textBounds, as.graphicsAnnot(x$label), x$x, x$y, : Polygon edge not found
  15. Can’t print to pdf ggplot charts [duplicate]
  16. Plot data in descending order as appears in data frame [duplicate]
  17. Reproducing lattice dendrogram graph with ggplot2
  18. Changing the line type in the ggplot legend
  19. How can I add a table to my ggplot2 output?
  20. How to reorder a legend in ggplot2?
  21. set only lower bound of a limit for ggplot
  22. How to deal with “data of class uneval” error from ggplot2?
  23. Issue with ggplot2, geom_bar, and position=”dodge”: stacked has correct y values, dodged does not
  24. stat_contour not able to generate contour lines
  25. Add x and y axis to all facet_wrap
  26. How to change positions of x and y axis in ggplot2
  27. ggplot embedded fonts in pdf
  28. R Plot Filled Longitude-Latitude Grid Cells on Map
  29. Add number of observations per group in boxplot
  30. Administrative regions map of a country with ggmap and ggplot2

Leave a Comment