在shiny中选择单选按钮时重置plotly event_data
在Shiny中选择单选按钮时重置Plotly event_data，可以通过以下步骤实现：
- 首先，确保已经在Shiny应用程序中加载了所需的包，包括
shiny和plotly。 - 创建一个Shiny应用程序，并在UI部分添加一个单选按钮组件，用于选择不同的选项。
library(shiny)
library(plotly)
ui <- fluidPage(
titlePanel("Reset Plotly event_data"),
sidebarLayout(
sidebarPanel(
radioButtons("option", "选择一个选项:",
choices = c("选项1", "选项2", "选项3"),
selected = "选项1")
),
mainPanel(
plotlyOutput("plot")
)
)
)- 在Server部分，使用
observeEvent函数来监听单选按钮的变化，并在变化时重置Plotly的event_data。
server <- function(input, output) {
observeEvent(input$option, {
# 重置Plotly event_data
event_data("plotly_click", source = "plot") <- NULL
})
output$plot <- renderPlotly({
# 创建一个简单的Plotly图表
plot_ly(data = iris, x = ~Sepal.Length, y = ~Sepal.Width, color = ~Species) %>%
layout(clickmode = "event")
})
}
shinyApp(ui, server)在上述代码中，observeEvent函数用于监听input$option的变化。当单选按钮的选项发生变化时，event_data函数被用于重置Plotly的event_data。在renderPlotly函数中，我们创建了一个简单的Plotly图表，并设置了clickmode为"event"，以便可以捕获点击事件。
这样，当选择不同的单选按钮选项时，Plotly的event_data将被重置，以便在下一次点击事件发生时获取正确的数据。
推荐的腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云云原生容器服务（TKE）：https://cloud.tencent.com/product/tke
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网（IoT）：https://cloud.tencent.com/product/iot
- 腾讯云移动开发：https://cloud.tencent.com/product/mobile
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云区块链服务（BCS）：https://cloud.tencent.com/product/bcs
- 腾讯云虚拟专用网络（VPC）：https://cloud.tencent.com/product/vpc
- 腾讯云安全产品：https://cloud.tencent.com/product/safe
相关·内容
1回答
我使用@shosaco 在plotly中重置选择：
library(shiny)
library(plotly)
library(shinyjs)
library(V8)
ui <- shinyUI(
fluidPage(
useShinyjs(),
extendShinyjs(text = "shinyjs.resetClick = function() { Shiny.onInputChange('.clientValue-plotly_selected-A', 'null'); }"),
actionBu
浏览 16提问于2018-02-09得票数 3
我在shiny中有一个交互式显示的文本，它从一个绘图中捕获单击事件。如果未单击任何内容，则显示默认文本；单击某个点后，将显示其相应值。
但是，我还有一个单选按钮，用于选择绘图中显示的内容。问题是，当我更改选中的单选按钮时，交互显示的文本不再正确，因为绘图发生了变化，并且没有捕获到它，正如您在下面的简化示例中所看到的那样。因此，每当我在单选按钮中选择一个不同的选项时，我希望event_data被重置(并因此显示默认文本)。
我知道有一些方法可以创建一个单独的“重置”按钮(例如，使用shinyjs包，参见)，但我想知道是否有可能以某种方式将这个重置功能耦合到单选按钮上。
library(ggplo
浏览 1提问于2017-12-09得票数 0
回答已采纳
当plotly_click事件发生在绘图上时，我使用shiny、plotly和shinyBS生成一个带有新绘图的模式弹出窗口，如下所示。当我在本地运行和在本地浏览器中运行时，它都能很好地工作。
然而，当我将它部署到Shiny服务器上时，我得到了这个错误，并且不知道它是什么意思。有什么想法吗？
library(shiny)
library(plotly)
library(shinyBS)
df1 <- data.frame(x = 1:10, y = 1:10)
df2 <- data.frame(x = c(rep('a', 10), rep('b'
浏览 3提问于2016-09-28得票数 5
回答已采纳
如何从shiny app中将plot_ly图像导出为png？我想在操作按钮'ExportPlot‘上导出png或jpg (如下所示)。我知道plot_ly solution ，但是当我读到它时，它需要在plot_ly上创建用户。
如果有任何建议/解决方案，我将不胜感激。
library(shiny)
library(plotly)
ui <- fluidPage(
actionButton('ExportPlot', 'Export as png'),
plotlyOutput("plot"),
verbatimTex
浏览 0提问于2016-11-21得票数 1
1回答
如何从图表中获取选定的事件数据？
、、、、
我知道，并一直使用它作为指南。但是，我正在巧妙地转换到的ggplot元素是来自fviz_dend包的factoextra函数的输出。下面是我正在使用的一个最小的闪亮应用示例：
library(factoextra)
library(plotly)
library(shiny)
library(DT)
ui <- fluidPage(
plotlyOutput("ggp"),
verbatimTextOutput("selected_points"),
DT::dataTableOutput("filtered_table&
浏览 2提问于2019-10-29得票数 0
回答已采纳
1回答
我正在尝试shiny，包括一些plotly情节。我想使用反应性事件，所以当我点击地块时，另一个情节将根据过滤后的数据进行更新。问题是，我希望让click事件具有方面的情节，并且我想根据单击的方面过滤数据。但据我所知，在事件数据中没有返回facet信息。
我将示例简化为包含facet (请参阅下面的reprex )，但所有事件都没有接收到facet信息。特别是，我感兴趣的event_data("plotly_click")没有在任何地方得到点击的方面。
library(plotly)
library(shiny)
ui <- fluidPage(
plotlyOu
浏览 0提问于2019-01-18得票数 3
回答已采纳
我正在尝试使用Plotly plots在R中制作一个闪亮的应用程序。我正在尝试在一个闪亮的应用程序的后端创建缩放功能，以响应绘图图形上的单击事件(即，当一个点被单击时，放大该点)。然而，到目前为止，我找到的唯一解决方案是用新的视图范围完全重新布局plotly对象。 对于大型绘图，速度非常慢，因为shiny会重新渲染整个绘图，而且当数据点数量很多时，速度比plot在前端的内置缩放功能(右上角的plot用户界面按钮)慢得多。有没有办法在后台使用绘图缩放功能，这样整个绘图对象就不需要重新渲染来缩放了？ 示例： library(plotly)
library(shiny)
ui <- flu
浏览 23提问于2021-01-27得票数 3
回答已采纳
2回答
我想禁用使用R的服务器端的图例选择。我们看到可以通过以下方式实现这一目标：
gd.on('plotly_legendclick',function() { return false; })
我们是否可以使用event_register()或event_data()在R中实现这一目标？
我找到了一个使用CSS禁用图例的恶意解决方案。但是，如果同一output$gg有多个不同的情节，则CSS代码将禁用所有绘图的图例。
Reprex：
最后的目标，点击下面的图例绝不能隐藏任何点。
library(shiny)
library(plotly)
library(tidyverse)
u
浏览 0提问于2019-05-18得票数 2
回答已采纳
2回答
当用户单击图解图例时，我想显示一些信息。例如，在下面的代码中，如果用户单击图例中的"drat“名称以取消显示这些数据，我想打印一个文本，上面写着”选择了drat和qsec“。
我已经看到了这个堆栈溢出的帖子：，但是它与标签一起工作。在我的例子中，标签不是可用的参数。我已经测试了不同的事件，但当我点击图例时，没有返回任何信息(见下面的代码)。
有办法得到这些信息吗？
谢谢
library(plotly)
library(shiny)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("
浏览 1提问于2018-09-14得票数 4
回答已采纳
我正在维护我的代码，为一个庞大的，闪亮的仪表板，我注意到，点击事件的功能不再重置。
将其简化为一个最小的工作示例，并与来自和的解决方案进行比较后，我得出的结论是，禁用此特性的plotly或shinyjs库中肯定有更改。通过停止在绘图处的执行，我看到绘图对象确实正确地携带了源属性。
library(plotly)
library(shiny)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
plotlyOutput("plot"),
extendShinyjs(text = "shinyj
浏览 0提问于2019-06-26得票数 4
回答已采纳
1回答
在下面的shiny应用程序中，plotly包用于创建交互式相关热图。单击单个瓷砖时，将显示相应的散点图。然后，您可以通过单击download plot as png下载各个散列器。但是，是否有一种方法可以一次下载所有可能的散点图，而不必单击每个单独的瓷砖并保存每个单独的呢？谢谢
library(plotly)
library(shiny)
# compute a correlation matrix
correlation <- round(cor(mtcars), 3)
nms <- names(mtcars)
ui <- fluidPage(
mainPanel(
浏览 1提问于2018-05-11得票数 5
1回答
我正在尝试过滤基于动画情节图(对于此应用程序：)中的选定帧的闪亮中的情节。是否可以使用当前的event_data实现(参考：)？通过阅读ropensci GitHub，我不认为这已经实现了。如果没有任何其他的建议来获得这个功能？
(点击时)图之间反应性的一个工作示例如下(警告此代码使用getTBinR并将从此处()拉取世界卫生组织结核病数据。
#install.packages(shiny)
library(shiny)
# install.packages(devtools)
# devtools::install_github("seabbs/getTBinR", ref
浏览 5提问于2018-02-01得票数 1
2回答
我正在设计一个闪亮的应用程序，其中包含一个plotly散点图。我希望用户能够使用event_data函数单击图形来记录事件，但在单击actionButton时能够清除该事件。下面可以看到一些示例代码：
library(shiny)
library(plotly)
ui <- fluidPage(
actionButton("clearEvent", label = "clear event"),
verbatimTextOutput("plotVal"),
plotlyOutput('plot1')
)
se
浏览 3提问于2017-03-24得票数 8
回答已采纳
我在R闪亮的地方有个巧妙的情节。我希望能够点击多个点，并将它们显示在一个表格中。这个图工作得很好，我可以在表中显示1 plotly_click (通过event_data())。怎样才能长出一个向量的多个event_data点。下面是一些示例代码。我试图在d_save中保存这个事件。谢谢。
library(shiny)
library(plotly)
data1 <- data.frame(cbind(seq(1,1000,1),seq(1,1000,1)*5))
colnames(data1) <- c('index','data')
data_
浏览 2提问于2016-07-27得票数 3
回答已采纳
更新3:带有下拉按钮的新测试应用程序
library(shiny)
library(shinydashboard)
library(plotly)
library(shinyWidgets)
rm(list = ls(), envir = environment()) ## to prevent cross over from old runs
testData = data.frame(day = sample(seq(as.Date('1999/01/01'), as.Date('2000/01/01'), by="day"), 24),
浏览 0提问于2019-05-23得票数 4
回答已采纳
1回答
不使用Shiny的链接绘图
、、、、
我已经创建了一个shiny应用程序来显示大型数据集的相关热图。按下热图平铺时，将显示相应的散点图。
然而，我需要制作几个这样的应用程序，这超出了我在shinyapps.io上发布的限制。我的公司不愿意升级到付费计划。我尝试过使用其他方法发布应用程序，比如RInno，但没有用(我认为这个应用程序太复杂了？)。
如果有人能告诉我如何才能单独使用plotly而不是shiny，我将永远感激不尽。我相信像crosstalk这样的东西可能是将热图图块与散点图联系起来的途径？
谢谢
来自的示例。
library(plotly)
library(shiny)
# compute a correlation
浏览 0提问于2018-05-14得票数 7
1回答
我在我闪亮的应用程序中巧妙地使用了R包。下面是一个小例子：
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("event")
)
server <- function(input, output) {
# renderPlotly() also understands ggplot2 objects!
output$plot <- renderPlotly({
plot_ly(mtcar
浏览 1提问于2017-11-23得票数 0
回答已采纳
1回答
下面的代码摘自，生成了一个交互式的相关热图。我们可以选择瓷砖，用回归线查看相应的散点图。我是shiny的新手，我想知道如何才能得到回归的斜率方程和图中增加的r平方值？谢谢
library(plotly)
library(shiny)
# compute a correlation matrix
correlation <- round(cor(mtcars), 3)
nms <- names(mtcars)
ui <- fluidPage(
mainPanel(
plotlyOutput("heat"),
plotlyOutput(&#
浏览 0提问于2018-04-26得票数 1
回答已采纳
3回答
在用户单击散点图中的标记后，我使用Plotly的event_data("plotly_click")来做一些事情(打开一个模式)。之后(例如关闭模式)，event_data("plotly_click")当然不会改变，因此单击相同的标记就不会再次触发相同的操作。
最起码的例子：
library(plotly)
ui <- fluidPage(
plotlyOutput("plot")
)
server <- function(input, output, session) {
output$plot <- rende
浏览 4提问于2017-06-07得票数 5
回答已采纳
1回答
当我将代码从粘贴到我的控制台上时--没有图解被播放--我就无法以巧妙的方式显示任何有光泽的情节。
我的sessionInfo：
R version 3.4.0 (2017-04-21)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1
Matrix products: default
locale:
[1] LC_COLLATE=German_Germany.1252 LC_CTYPE=German_Germany.1252 LC_MO
浏览 3提问于2017-06-06得票数 1
回答已采纳
1回答
如何从even_data信息中检索用于绘图的原始数据？
library(plotly)
library(shiny)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("click")
)
server <- function(input, output, session) {
output$plot <- renderPlotly({
key <- row.names(mtcars)
p <- ggplot(mtcars, aes(
浏览 2提问于2017-08-19得票数 1
回答已采纳
1回答
我正试图在一个闪闪发亮的应用程序中使用Plotly函数绘制一些地理数据。问题是，我在地图上选择了点，没有正确发生，如下所示：
根据上面的数字，选定的"NOE_TASAODF“标签是”KH“(在地图一侧)，它与从平缓返回的信息不一致。以下是代码：
library(shiny)
library(plotly)
library(DT)
library(dplyr)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("hover"),
verbatimTextOutput(&#
浏览 7提问于2022-01-18得票数 1
回答已采纳
1回答
我创建了一个简单的图，当用户单击某个点时，它会在第二个选项卡上生成另一个图，Page_2 --是否可以添加一些自定义的JS，以便当用户单击该点时，它们会自动被重新路由到Page_2选项卡？
library(shiny)
library(plotly)
library(tidyverse)
# ui with two panes
# when you click on the outlier in the first plot
# you are routed to the second "point explorer" page
ui <- navbarPage(
浏览 1提问于2019-12-02得票数 1
回答已采纳
在交互式plot_ly中，event_data保存选定的数据。使用以下代码，可以通过双击plot来重置event_data output$brush <- renderPrint({
d <- event_data("plotly_selected")
if (is.null(d)) "Click and drag events (i.e., select/lasso) appear here (double-click to clear)" else d
}) 但是如何用一个闪亮的按钮重置event_data呢？ 有解决方案
浏览 11提问于2019-06-24得票数 1
我试图理解event_data()是如何工作的，方法是重新创建一个示例，该示例来自Interactive数据可视化示例，该示例具有圆滑和闪亮的，第一章将视图与闪亮的：链接，这样我就可以对所选的条形图进行着色。首先，当我运行代码时，我得到：
“警告:没有注册”plotly_click“事件绑定了'sub_category‘的源ID。为了获取此事件数据，请将event_register(p, 'plotly_click')添加到您希望从其获取事件数据的绘图event_register(p, 'plotly_click')中。警告：“plotly_click”
浏览 3提问于2020-02-09得票数 0
回答已采纳
我正在尝试创建一个可复制的示例，用于使用plotly在R shiny中进行三层深入。我能够跳过三级向下钻取，但是在我开始向下钻取之前，后退按钮出现了，并且我无法摆脱它。那就是后退按钮甚至在我开始向下钻取之前就已经出现了。下面是最小的工作示例。任何帮助都是非常感谢的。谢谢 library(shiny)
library(plotly)
library(dplyr)
library(readr)
sales <- read_csv("https://plotly-r.com/data-raw/sales.csv")
categories <- unique(sales
浏览 19提问于2020-09-24得票数 1
回答已采纳
2回答
我希望能够根据单选按钮输入中的选择更新pickerInput中可用的选择。在下面的示例中，我希望单选按钮"A“给出mtcar$cyl的pickerInput列表，而选择器输入"B”给出mtcar$mpg的选择器输入。
我试着用if语句来做这件事，但是到目前为止我还没有得到任何结果。可复制的例子如下：
library(shiny)
library(leaflet)
library(shinyjs)
library(rgeos)
library(tidyverse)
library(openxlsx)
library(plotly)
library(shinyWidgets)
浏览 15提问于2022-02-26得票数 1
回答已采纳
1回答
期望结果
我希望能够在我的{ plotly::ggplotly() }应用程序中单击图形中的一个点，然后在下面的单独输出中显示有关该点的一些信息。
MRE
在这个简单的例子中，我可以让它显示curveNumber、pointNumber、x、y，但是从这些值中明确地从原始数据中检索特定的数据点并不容易。虽然我不确定如何在应用程序的另一个部分访问key，但我已经在plotly::renderPlotly()调用中使用了key。
library(tidyverse)
library(plotly)
library(shiny)
# UI ----
ui <- fluidPage(plot
浏览 7提问于2022-05-17得票数 0
回答已采纳
我有一个简单的，闪亮的应用程序，在下面我打开浏览器。这是必不可少的。然后，我通过巧妙地提供的下载图标下载这个图，但是我想知道，在默认情况下，我是否可以设置所下载的文件名，而不是默认设置的文件名"newplot“。
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("event")
)
server <- function(input, output) {
# renderPlotly() also
浏览 1提问于2018-11-07得票数 2
回答已采纳
下面的示例是：，我能够在一个空白的、闪亮的项目中实现这个工作(相关矩阵链接到一个散点图)。但是，当我在一个闪亮的模块中做同样的操作时，基于event_data的单击操作似乎不起作用(散射仍然是空白的--不管发生了什么，似乎单击没有连接)。
我的可复制的例子如下，任何想法或解决方案将不胜感激。
library(plotly)
#### Define Modules ####
correlation_matrix_shinyUI <- function(id) {
ns <- NS(id)
mainPanel(
plotlyOutput(ns("corr_m
浏览 0提问于2016-05-11得票数 4
回答已采纳
你好，我创建了一个闪亮的应用程序，它在选定的变量之间创建了一个散点图。然后，当我点击一个数据点时，这个点的名字就会在图中打印出来。问题是，当我用其他变量更新绘图时，打印的内容不会被删除。一般来说，我想知道如何从我的绘图中删除数据标签的一些想法。
library(shiny)
library(ggplot2)
library(plotly)
library(dplyr)
library(htmlwidgets)
js <- HTML(
"Shiny.addCustomMessageHandler('resetValue', function(variableNa
浏览 1提问于2018-04-01得票数 0
回答已采纳
我想打印一个互动的饼图。在单击绘图时，应该添加另一个跟踪。我用event_data来做这个。添加跟踪时，在下一次单击页面上的任何位置时，将删除跟踪。我没有找到解决办法。我不知道如何覆盖一个又一个点击后的onclick事件。
下一个问题是删除前面添加的跟踪。我想我可以用plotlyProxy就像在那样
之后你可以看到我的代码
library(shiny)
library(data.table)
library(plotly)
ui <- basicPage(
mainPanel(
fluidRow(column(8, plotly::plotlyOutput("
浏览 1提问于2018-11-26得票数 3
回答已采纳
我正在尝试做一些看似简单的事情:当用户单击一个数据点或使用套索选择选择多个点时，我想用不同的颜色绘制这些点。为此，我查看选择了哪些点，并将col变量添加到数据框中，然后告诉ggplot根据该列对点进行着色。
它确实适用于第一个选择。但是，只要已经有选定的点，选择下一组点就不起作用。我添加了调试语句来查看plotly返回的数据，在初始选择之后，它似乎返回了不同的pointNumber和curveNumber。我找不到任何关于这些变量如何工作的文档，我也不确定如何解决这个问题。
这是一个
下面是要重现的代码：
library(plotly)
library(shiny)
ui <- flu
浏览 0提问于2017-09-19得票数 9
1回答
我正在尝试使用RShiny中的plotly_click选项来使用点击事件。我想做的是:单击绘图时，将显示与单击事件相对应的数据集。因此，当我单击绘图上categories中的'Office Supplies‘时，将显示与类别column='Office Supplies’相对应的数据集。类似地，当我深入到子类别级别并单击绘图中的任意子类别时，将显示与该子类别相对应的数据集。但我不能做到的是:当我点击“后退”操作按钮时，我看到一个空的数据表，而不是与关键的“办公用品”相对应的数据表，即点击后退按钮时，我看到一个我不想要的空表。我该怎么做呢？任何帮助都将不胜感激。下面是我的代码：
浏览 14提问于2021-04-25得票数 1
回答已采纳
1回答
我使用的是plotly::ggplotly()，我需要用户既可以选择一个点，也可以选择多个点。我希望两个选择选项并行存在。用户应该能够点击一个点和套索选择几个点，这两个信息应该被记录下来。
我遇到的问题是，如果我点击一个点，套索选择就会被重置。但事实恰恰相反:如果我选择套索，然后点击一个点，那么两者都会被保留。
这是这个问题的一个GIF
这是我的密码：
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("click&#
浏览 2提问于2017-09-19得票数 5
1回答
我已经创建了一个3x3x3的点立方体，范围从-1到1。我想绘制水平线和垂直线来连接点，以使其更容易可视化。我该怎么做呢？下面的代码就是我要做的：
library(plotly)
library(shiny)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("hover"),
verbatimTextOutput("click") )
server <- function(input, output, session) {
output$plot &l
浏览 0提问于2018-10-29得票数 1
在下面的代码中，解决了如何将图像URL加载到Plotly图中的问题。图像数据是从数据框中获取的，然后通过使用自定义数据工具，在悬停在图形中的每个数据点时显示为工具提示。有没有一种方法可以简单地使用文件目录，使用本地存储的图像来做类似的事情？
library(shiny)
library(shinydashboard)
library(plotly)
# Data ------------------------------------------------------------------
dt <- data.frame(
fruits = c("apple"
浏览 0提问于2020-04-29得票数 1
我已经创建了一个非常简单的闪亮的应用程序和一个非常简单的向下钻下来的图表。然而，我希望向下钻是一个过渡，而不是一个新的图表就在它下面。
因此，在这种情况下，如果单击“城市”，图表将更改为“城市”。不会像目前的版本那样，在国家图表的正下方填充新的图表。
有人能帮我做到这一点吗？谢谢。
library(tidyverse)
library(plotly)
library(shiny)
library(shinydashboard)
library(shinyWidgets)
full_data <- tibble(
State = c("IL", "IL
浏览 8提问于2022-11-16得票数 3
回答已采纳
是否有可能在shiny中将radioButtons重置为空值(即，好像单选按钮不会被单击，而默认值为空(selected = ""))？
我尝试使用shinyjs()和updateRadioButtons(session，"btn"，...)重置(“btn”)。然而，我只设法将单选按钮重置为一个特定值(例如，列表中的第一个值或另一个预定义的值)，而不是空值。
重置为空值将使在规定的选择实验中使用一组单选按钮进行多次重复选择成为可能(结合renderUI，其中单选按钮连续分配给不同的变量)。
浏览 0提问于2019-02-20得票数 1
我在地图上使用plotly和r shiny绘制国家图。我希望包含关于国家的行的数据子集在点击地图上的国家时以数据表的形式出现。但我无法实现它。我得到了表，但表中没有显示数据。任何帮助都将不胜感激！
Mapbox_Token= 'Mapbox token'
library(plotly)
library("readxl")
library(dplyr)
library(readxl)
library(writexl)
library(shiny)
library(htmlwidgets)
data_1<- read.csv(".file.csv
浏览 0提问于2020-08-09得票数 1
1回答
我想选择点与方框选择在一个图形，并显示在一个表下的散点图中的行内容。
有一个答案给出了几乎这个，但是它没有显示由框选择工具选择的所有数据，而是只显示了已单击的一行。
如何使表出现在散点图下面，其中包含用框选择工具选择的所有数据？
从链接答案复制的代码：
library(tidyverse)
library(plotly)
library(shiny)
d <- mtcars %>%
rownames_to_column("car")
# UI ----
ui <- fluidPage(plotlyOutput("plot"),
浏览 13提问于2022-11-22得票数 1
回答已采纳
我试着在世界地图上用闪亮的图片来确定点击的国家。
我使用了和，这段代码可以工作：
library(shiny)
library(plotly)
library(countrycode)
df <- countrycode_data[,c("iso3c", "country.name")]
df <- df[complete.cases(df),]
df$random <- rnorm(dim(df)[1])
shinyApp(
ui = shinyUI(fluidPage(plotlyOutput("plot"), te
浏览 0提问于2016-09-30得票数 3
1回答
我有一个闪亮的应用程序与绘图图形，通过plotlyProxy()修改，以响应用户的输入。现在的图形修改是瞬间和突然的，所以我尝试使用plotly的动画帧来编码平滑的变化。 例如，一些可重现的代码： # reproducible code for stack overflow
library(plotly)
library(tidyverse)
lvls <- c("lv1", "lv2", "lv3", "lv4")
dat <- data.frame(var1 = sample(lvls, 300, repla
浏览 6提问于2019-04-13得票数 1
1回答
我正在研究一个互动的条形图，将整合在一个网站上。 我听说要在网站上的其他内容之间集成图形，使用Plotly而不使用Shiny会更好。 我想在我的条形图上插入一个选择器按钮，它看起来像是在Shiny上创建的selectInput按钮。 我在Plotly：https://plotly.com/r/range-slider/#basic-range-slider-and-selector-buttons上看到了如何使用选择器按钮。但是我想我不能使用它，因为我想从1000个城市的列表中选择一个城市，所以我想要一个滚动条。 你知道在Plotly上添加一个带有滚动条的选择器按钮的方法吗？ 或者我应该使用
浏览 11提问于2020-03-25得票数 1
1回答
这可能不是一个非常高级的问题，在sof上肯定有答案，但我真的在任何地方都找不到答案。
基本上，在单击一个磁贴时，我希望信息显示在绘图下方的框中。也就是说，我不想要现在显示的x和y坐标，我想要的是当鼠标悬停在瓦片上时获得的信息-单击右上角的瓦片应该显示以下信息："65"，“丰田花冠”，"33.9“。
为这个丑陋的例子道歉。
library(shiny)
library(dplyr)
test <- data.frame(rownames(mtcars),mtcars$mpg,mtcars$hp)
ui <- fluidPage(
plotlyOutpu
浏览 14提问于2021-06-01得票数 0
回答已采纳
1回答
我有一个条形图，这是一个闪亮的应用程序的一部分。我巧妙地创造了它。我希望用户能够选择图形的一部分(单击)，在单击datatable时将显示与图表该部分悬停文本中的值相对应的所有行。
到目前为止，我能够显示来自event.data的输出，这不是很有趣。如何显示原始表中的相关行？
library(plotly)
library(shiny)
ui <- fluidPage(
uiOutput("ChooserDropdown"),
plotlyOutput("plot2"),
DT::dataTableOutput("tblpolypD
浏览 1提问于2019-07-20得票数 0
1回答
我有下面的数据框： Name<-c("John","Bob","Jack")
Number<-c(3,3,5)
NN<-data.frame(Name,Number) 和一个简单的闪亮的应用程序，它创建了一个绘图直方图。我的目标是单击直方图的一个条形图，并在数据表中显示与该条形图对应的Name。例如，如果我单击第一个栏，即3，我将获得一个表，上面有John和Bob的名字。 library(plotly)
library(shiny)
library(DT)
ui <- fluidPage(
mainPanel(
浏览 12提问于2019-01-30得票数 2
回答已采纳
我正在使用R闪亮，我正在绘制一些三维点云与plot_ly巧妙地从图书馆。我可以移动和放大点。
当我单击某个点时，有关这个点的一些信息存储在一个变量中，但是这会重置可视化。
是否有可能防止这种重新初始化？例如，我想放大数据的某些部分，然后连续点击这些点，而不需要任何重置。
下面是一个可重复的例子：
library(shiny)
library(plotly)
df=iris
ui <- fluidPage(
plotlyOutput("plot3D"),
textOutput("selection")
)
server <- functi
浏览 5提问于2022-10-20得票数 2
回答已采纳
2回答
我正在构建一个具有plot_ly散点图的闪亮应用程序。我使用一个SharedData对象(来自串扰包)在绘图和datatable (来自DT)之间共享信息。
问题是，当您单击绘图中的一个点时，它会使所有其他点的颜色变暗，并为所选点的图例添加一个条目，而一旦发生这种情况，似乎就没有办法撤消它。我想禁用这些视觉更改，但仍然能够检测到绘图点击。
如果我只是在plot_ly调用的data.frame参数中使用反应式数据而不是SharedData对象，但是绘图中的event_data没有足够的信息来选择datatable中的行，则不会出现此问题。( x和y点坐标是浮点数字，因此通过坐标与数据进行匹配可能
浏览 0提问于2017-09-30得票数 8
我不知道我在这里做错了什么，我已经尝试了multiple=TRUE和其他几种输入法，如多选和闪亮的小工具下拉选择，但似乎没有一个工作得很好。它适用于单选，但当涉及到多选或闪亮小部件中的(全选)选项时，什么都不起作用。我已经解决了这个问题，但这不是我想要的，我正在寻找一个合适的解决方案。如果有人能告诉我我在这里错过了什么，以及可以做些什么来解决这个问题，那就太好了。我所需要的就是启用多重选择，仅此而已。我已经给出了我的关于代码的所有工作，只是为了参考。请指导我解决这个问题。任何帮助，甚至是一个建议都是很棒的。 来自Sid的感谢 library(shiny)
library(plotly)
li
浏览 7提问于2020-10-28得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
