我正在尝试在ggvis中实现交互式缩放,更具体地说是使用画刷进行缩放。根据https://github.com/rstudio/ggvis/issues/143的说法,我认为这应该可以实现。
我有以下闪亮和ggvis代码(完全可重现):
## ui.R
library(ggvis)
shinyUI(fluidRow(
uiOutput('ui_plot1'),
ggvisOutput("graph_plot1")
))
## server.R
shinyServer(function(input, output, session) {
domains <- reactiveValues(x = c(NA, NA), y = c(NA, NA))
zoom_brush = function(items, session, page_loc, plot_loc, ...) {
domains$x = c(200, 400)
}
plot = reactive({
mtcars %>%
ggvis(~disp, ~mpg) %>%
layer_points() %>%
scale_numeric('x', domain = domains$x, clamp = TRUE) %>%
handle_brush(zoom_brush)
}) %>% bind_shiny('graph_plot1', 'ui_plot1')
})
因此,一旦绘制了刷子,反应域就会改变,从而改变了x scale_numeric
的域。如果仍然存在以下挑战:
- 在
zoom_brush
内部,我获得了刷子的坐标,但是在绘图的像素坐标系中而不是域坐标系中。如何将像素转换为域比例尺?在d3中,我可以简单地使用范围来缩放转换函数,但我不知道这些是否在ggvis(通过vega)中可用。 handle_brush
函数仅支持设置on_move
事件处理程序。在这种情况下,我只想在刷子完成时触发缩放,因此在刷子上下文中的onmouseup事件。我担心现在根本不可能实现这一点?- 只有当我设置clamp = TRUE时,才会获得有效的缩放。否则,域外的点仍然显示,并且仅将轴设置为新域。是否有一个简单的解决方法?或者我应该使数据集成为反应式,并基于刷子设置的域对其进行子集化?
我运行以下R版本和软件包版本。
> sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: x86_64-apple-darwin10.8.0 (64-bit)
locale:
[1] C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] ggvis_0.4.1 shiny_0.12.0
loaded via a namespace (and not attached):
[1] DBI_0.3.1 R6_2.0.1 Rcpp_0.11.6 assertthat_0.1 digest_0.6.8 dplyr_0.4.1 htmltools_0.2.6 httpuv_1.3.2
[9] jsonlite_0.9.16 lazyeval_0.1.10 magrittr_1.5 mime_0.3 parallel_3.1.1 tools_3.1.1 xtable_1.7-4
ggvis
,也许这个示例会起作用? - JasonAizkalns