在R中组合多个Plotly子图并实现可导航的HTML输出

当然可行！有两种简单的实现方式，既能让用户在三个子图间切换导航，又能通过htmlwidgets::saveWidget()导出成独立HTML文件，直接上代码示例：

方法1：用Plotly内置导航按钮（纯Plotly实现） #

这种方式无需额外依赖，直接在Plotly对象里添加切换按钮，所有交互都在同一个可视化画布完成。

# 加载所需包
library(plotly)
library(htmlwidgets)

# 生成随机数据
set.seed(123)
df1 <- data.frame(x = rnorm(50), y = rnorm(50))
df2 <- data.frame(x = rnorm(50), y = rnorm(50)^2)
df3 <- data.frame(x = seq(1,50), y = cumsum(rnorm(50)))

# 创建三个子图
subplot1 <- plot_ly(df1, x = ~x, y = ~y, type = "scatter", mode = "markers", name = "散点图") %>%
  layout(title = "子图1：随机散点")

subplot2 <- plot_ly(df2, x = ~x, y = ~y, type = "scatter", mode = "lines+markers", name = "曲线散点") %>%
  layout(title = "子图2：二次分布曲线")

subplot3 <- plot_ly(df3, x = ~x, y = ~y, type = "scatter", mode = "lines", name = "折线图") %>%
  layout(title = "子图3：累积随机折线")

# 组合成带导航按钮的可视化对象
combined_plot <- subplot(subplot1, subplot2, subplot3, nrows = 1) %>%
  layout(
    updatemenus = list(
      list(
        type = "buttons",
        direction = "right",
        x = 0.1,
        y = 1.2,
        buttons = list(
          list(
            label = "子图1",
            method = "relayout",
            args = list("xaxis.domain", c(0, 0.33)),
            args2 = list("xaxis2.domain", c(NA, NA)),
            args3 = list("xaxis3.domain", c(NA, NA))
          ),
          list(
            label = "子图2",
            method = "relayout",
            args = list("xaxis2.domain", c(0.33, 0.66)),
            args2 = list("xaxis.domain", c(NA, NA)),
            args3 = list("xaxis3.domain", c(NA, NA))
          ),
          list(
            label = "子图3",
            method = "relayout",
            args = list("xaxis3.domain", c(0.66, 1)),
            args2 = list("xaxis.domain", c(NA, NA)),
            args3 = list("xaxis2.domain", c(NA, NA))
          ),
          list(
            label = "全部显示",
            method = "relayout",
            args = list("xaxis.domain", c(0, 0.33)),
            args2 = list("xaxis2.domain", c(0.33, 0.66)),
            args3 = list("xaxis3.domain", c(0.66, 1))
          )
        )
      )
    )
  )

# 保存为HTML文件
saveWidget(combined_plot, "plotly_navigation.html", selfcontained = TRUE)

该方法通过控制子图的x轴显示域实现切换，支持单图显示或全部显示，导出的HTML完全独立，无需依赖任何服务器。

方法2：用Tab标签页（结合htmltools） #

如果想要更清晰的分栏导航，用Tab标签页形式更直观，需要用到htmltools包：

library(plotly)
library(htmlwidgets)
library(htmltools)

# 复用之前创建的subplot1、subplot2、subplot3对象
# 创建Tab标签页组合
tabbed_plot <- tagList(
  tags$div(
    style = "width: 80%; margin: 0 auto;",
    tabsetPanel(
      tabPanel("子图1", subplot1),
      tabPanel("子图2", subplot2),
      tabPanel("子图3", subplot3)
    )
  )
)

# 保存为HTML文件
saveWidget(tabbed_plot, "plotly_tab_navigation.html", selfcontained = TRUE)

这种方式每个子图位于独立标签页，用户点击标签即可切换，视觉层级更清晰，导出的HTML同样是完全独立的本地文件，打开即可使用。

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