test

最新推荐文章于 2021-12-30 18:00:01 发布

jellyzone

最新推荐文章于 2021-12-30 18:00:01 发布

阅读量727

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/jellyzone/article/details/25961443

本文介绍如何利用ggvis和shiny创建交互式的图表，并通过linked_brush实现两个图表之间的数据联动。首先加载必要的库并创建联动刷选对象，接着创建两个图表：当第一个图表中的点被选中时，这些点会在第二个图表中高亮显示，同时会自动生成表格展示所选数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

First we load ggvis and shiny:

options(width = 200)
library(ggvis)
library(shiny)

Then we create a linked brush object. This needs to know the possible linking keys. Here we’re going to link together some plots of the mtcars dataset, so we’ll add an id column, and use it as the keys:

# Add ID column to mtcars so that we can select from it
mtcars2 <- cbind(mtcars, id = seq_len(nrow(mtcars)))

lb <- linked_brush(keys = mtcars2$id, "red")

Next we create two plots. Points that are brushed on the first plot will be displayed on the second plot, and the scales will automatically adjust so that those points fill the plot.

mtcars2 %>%
  ggvis(~disp, ~mpg, key := ~id) %>%
  layer_points(fill := lb$fill, fill.brush := "red") %>%
  function(vis) lb$input(vis)

## Warning: Can't output dynamic/interactive ggvis plots in a knitr document.
## Generating a static (non-dynamic, non-interactive) version of the plot.

# A subset of mtcars2, of only the selected points, or the whole data if nothing
# is selected.
selected <- lb$selected
mtcars2_selected <- reactive({
  if (!any(selected())) return(mtcars2)
  mtcars2[selected(), ]
})

mtcars2_selected %>%
  ggvis(~disp, ~mpg) %>%
  layer_points(key := ~id) %>%
  set_options(duration = 100)

## Warning: Can't output dynamic/interactive ggvis plots in a knitr document.
## Generating a static (non-dynamic, non-interactive) version of the plot.

Also, we can show a table of the data, including a column indicating which ones are selected:

renderTable(
  cbind(mtcars2, selected = selected())
)

test

r11

zhufei

Friday, May 16, 2014