r - ggvisで切片と傾きで線を引く

Question

Shinyを始めたばかりです。私はあなたに尋ねます：切片と傾きによって特徴付けられる単一の線をggvisプロットに追加することは可能ですか?

たとえば、geom_abline を使用して ggplot2 を使用します。

議論したいコードは、 https: //github.com/wch/movies にある server.R ファイルにあり、この例http://shiny.rstudio.com/gallery/movie-explorer を参照しています。 html .

これは線を引く方法です

x_min <- 0
x_max <- 10

m <- 1
b <- 5

x <- c(x_min, x_max)
y <- m*x + b

df <- data.frame(x = x, y = y)

df %>% ggvis(x = ~x, y = ~y) %>% layer_lines()

しかし、上記のリンクの既存の ggvis プロットの上に描画することに興味があります。

ここにコードを追加する必要があります。

movies %>%
      ggvis(x = xvar, y = yvar) %>%
      layer_points(size := 50, size.hover := 200,
        fillOpacity := 0.2, fillOpacity.hover := 0.5,
        stroke = ~has_oscar, key := ~ID) %>%
      add_tooltip(movie_tooltip, "hover") %>%
      add_axis("x", title = xvar_name) %>%
      add_axis("y", title = yvar_name) %>%
      add_legend("stroke", title = "Won Oscar", values = c("Yes", "No")) %>%
      scale_nominal("stroke", domain = c("Yes", "No"),
        range = c("orange", "#aaa")) %>%
      set_options(width = 500, height = 500)
  })