如何在R的Plotly折线图中添加垂直Y轴滚动条并整合HTML代码？

要把Plotly图表和自定义的HTML滚动容器整合，你可以借助htmltools包将Plotly对象嵌入到指定的<div>标签中，具体实现步骤如下：

1. 加载plotly和htmltools包（后者用于处理HTML元素与R可视化对象的组合）
2. 保留你原有的数据生成与Plotly图表代码
3. 用htmltools::tags$div()创建带垂直滚动样式的容器，并将Plotly图表对象放入其中
4. 输出整合后的可滚动图表

完整代码示例：

library(plotly)
library(htmltools)

# 生成数据与基础折线图
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')

# 将图表嵌入带垂直滚动的div容器
scrollable_plot <- tags$div(
  style = "overflow-y:scroll; height: 200px;",
  p
)

# 输出可滚动图表
scrollable_plot

补充说明 #

• 用htmltools创建div元素无需手动拼接HTML字符串，更规范且不易出错
• 你可以调整height参数的值来修改容器的固定高度，当图表内容高度超过该值时，会自动触发垂直滚动条
• 如果在Shiny应用中使用，直接将scrollable_plot放入UI模块即可实现相同效果

内容的提问来源于stack exchange，提问作者Jerry Vfc