R Markdown中ggplotly转换图形后无法在HTML显示的问题

问题背景 #

原代码在R Markdown中可正常输出ggplot2静态图形，但将其改造为ggplotly交互式图形后，HTML文档中无法显示图形，推测是循环环境导致的渲染问题。

原可正常运行的ggplot2代码 #

### ---- Display the sales graph (TW vs LY) ----
if (exists(division_cleaned, Lista_Graficos_Ventas_Por_Division)) {
  grafico_division <- Lista_Graficos_Ventas_Por_Division[[division_cleaned]]$grafico
  
  if (!is.null(grafico_division)) {
    print(grafico_division)
  } else {
    cat("No graph available for this division.\n")
  }
}

修改后失效的ggplotly代码 #

### ---- Display the sales graph (TW vs LY) ----
if (exists(division_cleaned, Lista_Graficos_Ventas_Por_Division)) {
  grafico_division <- Lista_Graficos_Ventas_Por_Division[[division_cleaned]]$grafico
  
  if (!is.null(grafico_division)) {
    # Convertir el gráfico ggplot2 en un objeto plotly para interactividad
    ggplotly(grafico_division)
  } else {
    cat("No graph available for this division.\n")
  }
}

解决方案 #

在R Markdown的循环环境中，ggplotly对象必须显式调用print()函数才能触发渲染——这和ggplot2在部分场景下可自动输出的机制不同，交互式plotly图形在迭代环境中不会自动渲染。修改后的代码如下：

### ---- Display the sales graph (TW vs LY) ----
if (exists(division_cleaned, Lista_Graficos_Ventas_Por_Division)) {
  grafico_division <- Lista_Graficos_Ventas_Por_Division[[division_cleaned]]$grafico
  
  if (!is.null(grafico_division)) {
    # Convertir el gráfico ggplot2 en un objeto plotly para interactividad
    print(ggplotly(grafico_division))
  } else {
    cat("No graph available for this division.\n")
  }
}

补充说明 #

• 无论使用for循环还是lapply这类迭代工具，R Markdown的自动渲染逻辑都不会对循环内的plotly对象生效，必须显式打印
• 确保提前安装并加载plotly包：library(plotly)

内容的提问来源于stack exchange，提问作者Francisco Augusto Varela Aguir