如何在 R 中格式化弹出窗口（vistime/plotly plot）答案

【问题标题】：How to format popups in R (vistime/plotly plot)如何在 R 中格式化弹出窗口（vistime/plotly plot）
【发布时间】：2020-12-02 22:02:41
【问题描述】：

我有以下使用 vistime/plotly 构建的绘图示例。我想知道如何格式化弹出窗口？我找不到任何有关如何执行此操作的文档，但也许我只是忽略了一些东西。

例如，我想更改弹出窗口的背景颜色、宽度、字体、行距等。我确信使用 css/html 可以做到这一点，但我不知道如何在 R 环境中做到这一点。

curr_year <- 2017
data <- read.csv(text="event,group,start,end,color
                       Phase 1,Project,2016-12-22,2016-12-23,#c8e6c9
                       Phase 2,Project,2016-12-23,2016-12-29,#a5d6a7
                       Phase 3,Project,2016-12-29,2017-01-06,#fb8c00
                       Phase 4,Project,2017-01-06,2017-02-02,#DD4B39
                       Room 334,Team 1,2016-12-22,2016-12-28,#DEEBF7
                       Room 335,Team 1,2016-12-28,2017-01-05,#C6DBEF
                       Room 335,Team 1,2017-01-05,2017-01-23,#9ECAE1
                       Group 1,Team 2,2016-12-22,2016-12-28,#E5F5E0
                       Group 2,Team 2,2016-12-28,2017-01-23,#C7E9C0
                       3-200,category 1,2016-12-25,2016-12-25,#1565c0
                       3-330,category 1,2016-12-25,2016-12-25,#1565c0
                       3-223,category 1,2016-12-28,2016-12-28,#1565c0
                       3-225,category 1,2016-12-28,2016-12-28,#1565c0
                       3-226,category 1,2016-12-28,2016-12-28,#1565c0
                       3-226,category 1,2017-01-19,2017-01-19,#1565c0
                       3-330,category 1,2017-01-19,2017-01-19,#1565c0
                       1-217.0,category 2,2016-12-27,2016-12-27,#90caf9
                       4-399.7,moon rising,2017-01-13,2017-01-13,#f44336
                       8-831.0,sundowner drink,2017-01-17,2017-01-17,#8d6e63
                       9-984.1,birthday party,2016-12-22,2016-12-22,#90a4ae
                       F01.9,Meetings,2016-12-26,2016-12-26,#e8a735
                       Z71,Meetings,2017-01-12,2017-01-12,#e8a735
                       B95.7,Meetings,2017-01-15,2017-01-15,#e8a735
                       T82.7,Meetings,2017-01-15,2017-01-15,#e8a735")

data <- as.data.frame(data)                               
p <- vistime(data)
pb <- plotly_build(p)
p

【问题讨论】：

标签： r plotly vistime

【解决方案1】：

根据Documentation on Plotly page，以下是可能的：

例子：

plotly::style(p, hoverlabel = list(bgcolor = "purple", 
                                   bordercolor = "green", 
                                   font = list(color = "white", 
                                               family = "Arial", 
                                               size = 40)))

【讨论】：