悬浮值在插图R中的固定位置

发布于12月10日

是否可以将轨迹值放置在悬停时显示在绘图角落中的Ploly/R(仅限y值)中，或放置在绘图上的固定位置(如红色突出显示的位置).

x <- c(1:100)
random_y <- rnorm(100, mean = 0)
data <- data.frame(x, random_y)

plot_ly(data, x = ~x, y = ~random_y, type = 'scatter', mode = 'lines',
               line = list(color = "#000"))

and then apply styling to that value, say larger font

推荐答案

我们可以用一个小的shiny 的应用程序来实现这样的行为:

library(shiny)
library(plotly)

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

server <- function(input, output, session) {
  
  output$plot <- renderPlotly({
    x <- c(1:100)
    random_y <- rnorm(100, mean = 0)
    data <- data.frame(x, random_y)
    
    p <- plot_ly(data, x = ~x, y = ~random_y, type = 'scatter', mode = 'lines',
                 line = list(color = "#000")) %>%
      layout(annotations = list(
        x = 1, y = 2,
        text = "", # Initialize with empty text
        showarrow = FALSE,
        xanchor = 'left',
        yanchor = 'bottom',
        font = list(
          family = "Arial, sans-serif",
          size = 16,      
          color = "red" 
        )
      ))
    p
  })
  
  observeEvent(event_data("plotly_hover"), {
    hover_data <- event_data("plotly_hover")
    plotlyProxy("plot", session) %>%
      plotlyProxyInvoke("relayout", list(
        annotations = list(
          list(
            x = 1, y = 2,
            text = paste("Y-value:", hover_data$y),
            showarrow = FALSE,
            xanchor = 'left',
            yanchor = 'bottom',
            font = list(
              family = "Arial, sans-serif",
              size = 20,      
              color = "red"   
            )
          )
        )
      ))
  })
}

shinyApp(ui, server)