时间戳

首页 > 解决方案 > 修改 plotly 折线图中的悬停模板

r - 修改 plotly 折线图中的悬停模板

问题描述

我有下面的闪亮应用程序，我想在其中修改hovertemplate它会显示的方式Name，Week和lab（更美观的形式）。问题是我已经习惯customdata了显示lab，不知道怎么显示Name。

library(plotly)
library(shiny)
full_data<-data.frame("Name"=c("Q1","Q2","Q3","Q1","Q2","Q3"),"Values"=c(245645,866556,26440,65046,641131,463265),
                      "Week"=c("a","b","c","d","e","f"))
desc <- full_data %>% 
  group_by(Name,Week) %>% 
  summarise(values = sum(Values)) %>%
  mutate(lab = scales::label_number_si(accuracy = 0.1)(values))

shinyApp(
  ui = fluidPage(
    
    plotlyOutput("pl")
  )
  ,
  server = function(input, output, session) {
    output$pl<-renderPlotly({
      plot_ly(desc,
              x = ~Week, 
              y = ~values,
              #text = ~values,
              color = ~Name,
              colors = c("#60ab3d","#6bbabf","#c4d436","#3e5b84","#028c75","red"),
              customdata = mapply(function(x,y) list(x,y), desc$lab, desc$Name, SIMPLIFY = FALSE)) %>%
        add_trace(
          type = 'scatter',
          mode = 'lines+markers',
          hovertemplate = paste(
            "%{x}",
            "%{customdata[0]}", 
            "%{customdata[1]}", 
            "<extra></extra>",
            sep = "\n"),
          hoveron = 'points')
      
    })
  }
)

标签： rshinyplotly

解决方案

尝试这个：

customdata = mapply(function(x,y) list(x,y), desc$lab, desc$Name, SIMPLIFY = FALSE)

和

hovertemplate = paste(
  "%{color}",
  "%{x}",
  "%{customdata[0]}", 
  "%{customdata[1]}", 
  "<extra></extra>",
  sep = "\n")

推荐阅读