How can I put a transformed scale on the right side of a ggplot2?

by

You should have a look at this link http://rpubs.com/kohske/dual_axis_in_ggplot2.

I’ve adapted the code provided there for your example. This fix seems very “hacky”, but it gets you part of the way there. The only piece left is figuring out how to add text to the right axis of the graph.

    library(ggplot2)
    library(gtable)
    library(grid)
    LakeLevels<-data.frame(Day=c(1:365),Elevation=sin(seq(0,2*pi,2*pi/364))*10+100)
    p1 <- ggplot(data=LakeLevels) + geom_line(aes(x=Day,y=Elevation)) + 
          scale_y_continuous(name="Elevation (m)",limits=c(75,125))

    p2<-ggplot(data=LakeLevels)+geom_line(aes(x=Day, y=Elevation))+
        scale_y_continuous(name="Elevation (ft)", limits=c(75,125),           
        breaks=c(80,90,100,110,120),
                 labels=c("262", "295", "328", "361", "394"))

    #extract gtable
    g1<-ggplot_gtable(ggplot_build(p1))
    g2<-ggplot_gtable(ggplot_build(p2))

    #overlap the panel of the 2nd plot on that of the 1st plot

    pp<-c(subset(g1$layout, name=="panel", se=t:r))
    g<-gtable_add_grob(g1, g2$grobs[[which(g2$layout$name=="panel")]], pp$t, pp$l, pp$b, 
                       pp$l)

   ia <- which(g2$layout$name == "axis-l")
   ga <- g2$grobs[[ia]]
   ax <- ga$children[[2]]
   ax$widths <- rev(ax$widths)
   ax$grobs <- rev(ax$grobs)
   ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")
   g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)
   g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)

   # draw it
   grid.draw(g)

enter image description here

More Related Contents:

  1. Issue when passing variable with dollar sign notation ($) to aes() in combination with facet_grid() or facet_wrap()
  2. Changing fonts in ggplot2
  3. “for” loop only adds the final ggplot layer
  4. What is the width argument in position_dodge?
  5. Label points in geom_point
  6. geom_rect and alpha – does this work with hard coded values?
  7. Nested facets in ggplot2 spanning groups
  8. ggplot2: histogram with normal curve
  9. How to fill geom_polygon with different colors above and below y = 0 (or any other value)?
  10. Adding table within the plotting region of a ggplot in r
  11. Formatting dates with scale_x_date in ggplot2
  12. How to plot just the legends in ggplot2?
  13. Making a stacked area plot using ggplot2
  14. How do I show the y value on tooltip while hover in ggplot2
  15. Seeking workaround for gtable_add_grob code broken by ggplot 2.2.0
  16. how to show a legend on dual y-axis ggplot
  17. Different colours of geom_line above and below a specific value
  18. use ggpairs to create this plot
  19. Reverse datetime (POSIXct data) axis in ggplot
  20. R – ggplot2 issues with date as character for x-axis
  21. Changing the order of dodged bars in ggplot2 barplot
  22. ggplot2: Setting geom_bar baseline to 1 instead of zero
  23. Combined plot of ggplot2 (Not in a single Plot), using par() or layout() function? [duplicate]
  24. Plot background colour in gradient
  25. How to specify columns in facet_grid OR how to change labels in facet_wrap
  26. How to get geom_vline to honor facet_wrap?
  27. R – ggplot line color (using geom_line) doesn’t change
  28. When does the argument go inside or outside aes()?
  29. R ggplot ordering bars within groups
  30. ggplot for loop outputs all the same graph

Leave a Comment