How to use facets with a dual y-axis ggplot

by

Now that ggplot2 has secondary axis support this has become much much easier in many (but not all) cases. No grob manipulation needed.

Even though it is supposed to only allow for simple linear transformations of the same data, such as different measurement scales, we can manually rescale one of the variables first to at least get a lot more out of that property.

library(tidyverse)

max_stones <- max(d1$stones)
max_revenue <- max(d1$revenue)

d2 <- gather(d1, 'var', 'val', stones:revenue) %>% 
  mutate(val = if_else(var == 'revenue', as.double(val), val / (max_stones / max_revenue)))

ggplot(mapping = aes(clarity, val)) +
  geom_bar(aes(fill = cut), filter(d2, var == 'revenue'), stat="identity") +
  geom_point(data = filter(d2, var == 'stones'), col="red") +
  facet_grid(~cut) +
  scale_y_continuous(sec.axis = sec_axis(trans = ~ . * (max_stones / max_revenue),
                                         name="number of stones"),
                     labels = dollar) +
  theme(axis.text.x = element_text(angle = 90, hjust = 1),
        axis.text.y = element_text(color = "#4B92DB"),
        axis.text.y.right = element_text(color = "red"),
        legend.position="bottom") +
  ylab('revenue')

enter image description here

It also works nicely with facet_wrap:

enter image description here

Other complications, such as scales="free" and space="free" are also done easily. The only restriction is that the relationship between the two axes is equal for all facets.

More Related Contents:

  1. Left align two graph edges (ggplot)
  2. Align ggplot2 plots vertically
  3. Save plot with a given aspect ratio
  4. Seeking workaround for gtable_add_grob code broken by ggplot 2.2.0
  5. how to show a legend on dual y-axis ggplot
  6. ggplot2 – adding secondary y-axis on top of a plot
  7. Multiple ggplots of different sizes
  8. Save a ggplot2 time series plot grob generated by ggplotGrob
  9. Force X axis text on for all facets of a facet_grid plot
  10. The perils of aligning plots in ggplot
  11. Plot two graphs in same plot in R
  12. Create stacked barplot where each stack is scaled to sum to 100%
  13. Remove extra legends in ggplot2
  14. How do you order the fill-colours within ggplot2 geom_bar
  15. ggplot2: facet_wrap strip color based on variable in data set
  16. Difference between passing options in aes() and outside of it in ggplot2
  17. How to draw stacked bars in ggplot2 that show percentages based on group?
  18. R – image of a pixel matrix?
  19. How to extract the fill colours from a ggplot object?
  20. ggplot2 multiple scales/legends per aesthetic, revisited [duplicate]
  21. Generate paired stacked bar charts in ggplot (using position_dodge only on some variables)
  22. facet_wrap add geom_hline
  23. How to draw a nice arrow in ggplot2
  24. Bars in geom_bar have unwanted different widths when using facet_wrap
  25. beautiful Pie Charts with R
  26. Layered axes in ggplot?
  27. Connect stack bar charts with multiple groups with lines or segments using ggplot 2
  28. How to specify columns in facet_grid OR how to change labels in facet_wrap
  29. Specify height and width of ggplot graph in Rmarkdown knitr output
  30. group by two columns in ggplot2

Leave a Comment