使用选择框通过 R 中的串扰在 R 绘图中选择默认值，使用静态 html 不闪亮

Question

在 Rmarkdown html 文档中，如何为 crosstalk::filter_select 下拉列表选择一个默认值，该下拉列表将与绘图一起使用？ 例如，在下面的示例中，在编织 RMD 时仅选择组“a”。

我知道对于下面的示例，使用绘图按钮会更容易，但是当有超过 4-5 个左右的选择时，绘图下拉菜单/按钮占用太多空间/非常难看。 也希望避免运行闪亮的服务器，这个想法是为了速度目的让所有东西都在客户端运行。

串扰中有一个 PR 为 filter_select 函数添加了“默认选择”参数，但该版本不适用于 plotly ( https://github.com/rstudio/crosstalk/pull/70 )。 我想最简单的方法是在文档中添加 javascript 来操纵串扰对象，但一些实验还没有进行得很远。

Reprex rmd：

---
output:
  html_document
---

```{r echo=FALSE, message=FALSE, warning=FALSE}


library(plotly)
# example data 
dat <- tibble::tribble(~filterBy, ~x, ~y,
                        "a", 1, 1,
                        "b", 2, 1,
                        "a", 1, 2,
                        "b", 2, 2,
                        "a", 1, 3,
                        "b", 2, 3,
                        "a", 1, 2,
                        "b", 2, 3,
                        "c", 3, 1,
                        "c", 3, 2,
                        "c", 3, 3
                        )  

# initializing a crosstalk shared data object  
plotdat <- highlight_key(dat)

# Filter dropdown
question_filter <- crosstalk::filter_select(
   "filter", "Select a group to examine",
   plotdat, ~filterBy, multiple = F
)

# Plotting:
plot <-  plot_ly( plotdat, 
    x = ~x, y = ~y, text = ~filterBy,  mode = "markers+text", 
    textposition = "top", hoverinfo = "x+y"
  )

# Just putting things together for easy display:
shiny::tags$div(class = 'flexbox',
                question_filter,
                shiny::tags$br(), 
                plot)


```

Answer 1

您可以直接操纵selectize的箱子，串扰filter_select使用JavaScript。OUPUTS，诀窍是触发它的负荷，象这样：

```{js}
function filter_default() {
    document.getElementById("filter").getElementsByClassName("selectized")[0].selectize.setValue("a", false);
}
window.onload = filter_default;
```

Answer 2

问题似乎已通过安装“rstudio/crosstalk#70”在这里解决。 然后您将能够使用select选项

Answer 3

只是为了补充接受的答案，在我的例子中它在 RStudio 查看器中起作用，但在 Chrome/Edge/IE/Firefox 中不起作用：jQuery 事件 Document.ready 解决了这个问题（ 来自这个线程的想法）

$(document).ready(function() {
    document.getElementById("filter").getElementsByClassName("selectized")[0].selectize.setValue("a", false);
});

Answer 4

我似乎无法让它工作。

这是一个最小的例子

https://github.com/sebapehl/crosstalk_preselect/blob/main/crosstalk_preselect.Rmd

---
title: "crosstalk preselect"
output: html_document
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
library(plotly)
library(crosstalk)
library(tidyverse)
data(cars)
lw <- cars
shared_lw <- SharedData$new(lw)
```

```{r}
bscols(widths = c(3, NA),
  list(
    filter_checkbox("dist", "dist", shared_lw, ~dist)
  ),
  plot_ly(data = shared_lw) %>%
      add_markers(x = ~dist, y = ~speed)
  )  
```

```{js}
function filter_default() {
    document.getElementById("dist").getElementsByClassName("selectized")[0].selectize.setValue("24", false);
 }
window.onload = filter_default;
```

渲染到

https://raw.githack.com/sebapehl/crosstalk_preselect/main/crosstalk_preselect.html

不选择“2”。 我在这里做错了什么？