r - ggvis の xpd=TRUE と同等

Question

私はggvisで遊んでいて、次のコードを思いつきました:

library(ggvis)
mtcars %>% ggvis(~disp, ~wt) %>%
  layer_points() %>%
  scale_numeric("x", domain = input_slider(50, 500, c(100, 400)), nice = FALSE) %>%
  scale_numeric("y", domain = input_slider(0, 6, c(1, 5)), nice = FALSE)

これにより、プロットのサイズを動的に変更できます。問題は、サイズを変更すると、一部のデータ ポイントが範囲外にプロットされることです。xpd=TRUE軸の範囲外のデータ ポイントがプロットされないように、プロット領域をクリップするベース R グラフのようなオプションはありますか?