Convert formula to function in sec_axis()

[yutannihilation]

Fixes #3031

library(ggplot2)

p <- ggplot(mtcars, aes(cyl, mpg)) +
  geom_point()

# existing notation
p1 <- p + scale_y_continuous(sec.axis = sec_axis(~ . + 10))

# purrr-style notation (might be confusing to use .x for Y axis...)
p2 <- p + scale_y_continuous(sec.axis = sec_axis(~ .x + 10))

# normal function
add_10 <- function(y) y + 10
p3 <- p + scale_y_continuous(sec.axis = sec_axis(add_10))


patchwork::wrap_plots(p1, p2, p3)

^{Created on 2019-04-13 by the reprex package (v0.2.1)}

[thomasp85]

Can you make a small note in NEWS

[yutannihilation]

Sure.

[lock]

This old issue has been automatically locked. If you believe you have found a related problem, please file a new issue (with reprex) and link to this issue. https://reprex.tidyverse.org/