sec_axis changes with environmental variable

[abl0719]

When there are variables in the transformation function in sec_axis, the plot changes after the variable changes.

##### ggplot bug #####
library(ggplot2)
temp_data <- data.frame(x=1:4, y=1:4)
temp_scale <- 1
a <- ggplot() + geom_point(data = temp_data, aes(x=x, y=y)) +
  scale_y_continuous(sec.axis = sec_axis(~.*temp_scale))
a

temp_scale <- 4
a

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

[yutannihilation]

But, it's how R works.

a <- 1

a_plus_1 <- function() a + 1

a_plus_1()
#> [1] 2

a <- 10

a_plus_1()
#> [1] 11

^{Created on 2019-02-15 by the reprex package (v0.2.1.9000)}

After #3038 changes sec_axis() to accept a function, you will be able to do this:

build_axis_fun <- function(temp_scale) {
  function(.) . * temp_scale
} 

a <- ggplot() + geom_point(data = temp_data, aes(x=x, y=y)) +
  scale_y_continuous(sec.axis = sec_axis(build_axis_fun(temp_scale)))
a

In the meantime, you need to build a formula by some functions like rlang::new_formula().

library(rlang)

temp_scale <- 1
new_formula(quote(.), temp_scale)
#> . ~ 1

^{Created on 2019-02-15 by the reprex package (v0.2.1.9000)}

[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/