Wie wird der Variablenname als Achsenbezeichnung in interaktivem ggvis übergeben?

Question

Dieser Code generiert das Diagramm, das ich möchte, aber ich möchte den Inhalt von input_radiobuttons als vertikale Achsenbeschriftung anstelle der zufälligen Zeichenfolge reactive_931110099 übergeben.

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") 
    ) 

Answer 1

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") 
    )