可编辑的 Shiny 中 Plotly 图形的动态注释

如何解决可编辑的 Shiny 中 Plotly 图形的动态注释

我正在尝试获得一个情节图，我可以在其中单击一个点 - 弹出一个注释标志，指向带有“创建注释”的选定点 - 然后用户可以添加任何评论并点击离开 - 评论然后将被“保存”，然后在应用程序的下一次运行时，该点将是不同的颜色或以某种方式突出显示以识别已添加的评论。 我已经乱搞了一段时间，还没有走多远（这已经坏了，无法使用 add_annotations 运行）：

library(data.table)
library(tidyverse)
library(lubridate)
library(shiny)
library(plotly)
library(htmlwidgets)

df<-data.table(Scenario = c("a","b","c"),"2020" = c(10,15,5),"2021" =c(12,8,6),"2022" = c(14,6,7)) %>%
        pivot_longer(cols = -Scenario,names_to = "Date") 



ui <- fluidPage(
        plotlyOutput("plot"),)

server <- function(input,output,session) {
        
        x_clicked <- reactive({event_data(source = "mySource","plotly_click")$x})
        y_clicked <- reactive({event_data(source = "mySource","plotly_click")$y})
              
        
output$plot<-renderPlotly({
                p<-ggplot(df)+
                        geom_point(aes(Date,value,colour = Scenario))
                ggplotly(p) %>%
                        #Add a new annotation near the clicked point 
                        add_annotations(x= x_clicked,y = y_clicked,text = "enter",clicktoshow = T)%>%
                        event_register('plotly_click')
                })

                }# end of server



shinyApp(ui,server)

其他想法： 也许使用 JS 但我不知道语言，类似于： https://codepen.io/plotly/pen/Kzjamd?editors=1111

也许将注释保存为列表，然后在用户单击时更新该列表 - 可以类似于此示例（使用某种形式的 $annotations[0].text）捕获此信息，但它不会写入 verbatimtextoutput，而是会更新列表？ 还切换了 editable =list('annotationText'=T) 所以只有文本是可编辑的。

library(shiny)

ui <- fluidPage(
        plotlyOutput("p"),verbatimtextoutput("info")
)

server <- function(input,session) {
        
        output$p <- renderPlotly({
                plot_ly() %>%
                        layout(
                                annotations = list(
                                        list(
                                                text = "fire",x = 0.5,y = 0.5,xref = "paper",yref = "paper"
                                        )
                                )) %>%
                        config(editable = TRUE)
        })
        
        output$info <- renderPrint({
                event_data("plotly_relayout")
        })
        
}

shinyApp(ui,server)

我觉得我很近，但又很远！