R语言：使用slickR实现ggplot横向轮播时图像空白问题求助

你的代码出现空白的原因主要有三个：一是误用了plotly_build（这是plotly内部构建图表的函数，不适合直接转换ggplot对象）；二是slickR对htmlwidgets的封装方式有误；三是循环中直接print多个slickR对象会导致HTML渲染冲突。

以下是修正后的完整代码：

---
title: "test"
output: html_document
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(slickR)
library(plotly)
library(htmltools)

# 生成ggplot列表
ggplot_list <- list(
  ggplot(mtcars, aes(mpg, wt)) + geom_point() + ggtitle("Plot 1"),
  ggplot(mtcars, aes(hp, wt)) + geom_point() + ggtitle("Plot 2"),
  ggplot(mtcars, aes(qsec, wt)) + geom_point() + ggtitle("Plot 3")
)

# 用ggplotly转换（官方推荐的ggplot转plotly方式）
plotly_list <- lapply(ggplot_list, ggplotly)

# 为每个plotly图表创建固定尺寸的容器
carousel_items <- lapply(plotly_list, function(p) {
  tags$div(style = "width: 800px; height: 400px;", p)
})

# 封装轮播创建逻辑
create_carousel <- function(items) {
  slickR(items, height = 400) %>%
    slick_opts(
      slidesToShow = 1,
      slidesToScroll = 1,
      infinite = TRUE,
      arrows = TRUE
    )
}

# 组合多个轮播并统一输出
carousels <- tagList(
  create_carousel(carousel_items),
  create_carousel(carousel_items)
)

print(carousels)

### 关键修改点说明：
- 替换`plotly_build`为`ggplotly()`：`ggplotly`是官方提供的ggplot转plotly工具，能生成完整且可正常渲染的plotly htmlwidget对象，而`plotly_build`是内部函数，用于处理已构建的图表，不适合直接转换原始ggplot。
- 固定容器尺寸：给每个plotly图表的外层div设置明确宽高，避免slickR布局时因尺寸不确定导致的渲染异常。
- 用`tagList`组合轮播：循环中直接print会造成HTML节点重复和渲染冲突，将多个轮播放入`tagList`后统一输出，保证HTML结构正确。
- 添加slickR配置：通过`slick_opts`明确轮播参数，比如单页显示数量、滚动步长、箭头控制等，让轮播行为更符合预期。

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