我正在尝试做一些看似简单的事情:当用户单击数据点或使用套索选择选择多个点时,我想以不同的颜色绘制这些点。为了做到这一点,我查看选择了哪些点,并添加一个col
变量到数据框,我告诉 ggplot 根据该列为点着色。
它确实适用于第一次选择。但只要已经选择了点,选择下一组点就不起作用。我添加了调试语句来查看从plotly返回的数据,并且它似乎返回不同的数据pointNumber
and curveNumber
经过初步选择后。我找不到任何有关这些变量如何工作的文档,并且我不确定如何解决此问题。
这是一个显示问题的 GIF
这是重现的代码:
library(plotly)
library(shiny)
ui <- fluidPage(
plotlyOutput("plot")
)
server <- function(input, output, session) {
output$plot <- renderPlotly({
click_data <- event_data("plotly_click", source = "select")
select_data <- event_data("plotly_selected", source = "select")
data <- mtcars
data$col <- "black"
if (!is.null(select_data)) {
cat(str(select_data))
idx <- select_data$pointNumber + 1
data[idx, "col"] <- "blue"
}
if (!is.null(click_data)) {
cat(str(click_data))
idx <- click_data$pointNumber + 1
data[idx, "col"] <- "red"
}
p <- ggplot(data, aes(mpg, wt, col = I(col))) + geom_point()
ggplotly(p, source = "select")
})
}
shinyApp(ui, server)
我还被告知,也许我需要做的是创建自己的行标识符并将其传递给key
审美的。我不确定这意味着什么我尝试定义key <- row.names(data)
然后通过key=key
到 ggplot 的 aes(),但这似乎没有改变任何东西。
卡森·西弗特回答了我的问题要点
答案如下:
我知道这似乎违反直觉,但 pointNumber 不是可靠的行标识符。使用这样的关键变量:
library(plotly)
library(shiny)
mtcars$key <- row.names(mtcars)
mtcars$col <- "black"
ui <- fluidPage(
plotlyOutput("plot")
)
server <- function(input, output, session) {
output$plot <- renderPlotly({
click_data <- event_data("plotly_click")
select_data <- event_data("plotly_selected")
if (!is.null(select_data)) {
mtcars[mtcars$key %in% select_data$key, "col"] <- "blue"
}
if (!is.null(click_data)) {
mtcars[mtcars$key %in% click_data$key, "col"] <- "red"
}
p <- ggplot(mtcars, aes(mpg, wt, col = I(col), key = key)) +
geom_point()
ggplotly(p) %>% layout(dragmode = "lasso")
})
}
shinyApp(ui, server)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)