How to pass variable name as axis label in interactive ggvis?

Question

This code generates the chart I want, but I would like to pass the content of input_radiobuttons as vertical axis label in place of the random string reactive_931110099.

library(ggvis)
mtcars %>% ggvis(x = ~wt, y= input_radiobuttons( 
     choices = c("mpg" = 'mpg', "disp" = 'disp'),
      label = "Y-axis",
      map = as.name)
     )
    layer_densities(
      adjust = input_slider(.1, 2, value = 1, step = .1, label = "Bandwidth adjustment"),
      kernel = input_select(
        c("Gaussian" = "gaussian",
          "Epanechnikov" = "epanechnikov",
          "Rectangular" = "rectangular",
          "Triangular" = "triangular",
          "Biweight" = "biweight",
          "Cosine" = "cosine",
          "Optcosine" = "optcosine"),
        label = "Kernel")
    )

Does not seem possible at this point -- see http://stackoverflow.com/questions/32464822/how-do-i-control-the-axis-labels-on-a-ggvis-plot-where-the-variables-to-be-plott — Weihuang Wong, Oct 29 '16 at 19:56

score 1 · Answer 1 · answered Oct 29 '16 at 19:43

mtcars %>% ggvis(x = ~wt, y= input_radiobuttons( 
     choices = c("mpg" = 'mpg', "disp" = 'disp'),
      label = "Y-axis",
      map = as.name)
     ) %>%
   add_axis("y", title = "Pick Your Own Label", title_offset = 50)
    layer_densities(
      adjust = input_slider(.1, 2, value = 1, step = .1, label = "Bandwidth adjustment"),
      kernel = input_select(
        c("Gaussian" = "gaussian",
          "Epanechnikov" = "epanechnikov",
          "Rectangular" = "rectangular",
          "Triangular" = "triangular",
          "Biweight" = "biweight",
          "Cosine" = "cosine",
          "Optcosine" = "optcosine"),
        label = "Kernel")
    )

How to pass variable name as axis label in interactive ggvis?

1 Answers1