R语言中如何在if-else语句的else分支显示多个Plotly图形？

问题根源 #

基础绘图函数plot()会直接将图形输出到绘图设备，每调用一次就生成独立的一张图；但plot_ly()返回的是htmlwidget类型的对象，在代码块（比如if-else的else分支）中，R默认只会自动渲染最后一个返回的对象，前面的对象不会被触发显示，因此你只能看到第二个图。

可行解决方案 #

1. 显式调用print()渲染每个图形

给每个plot_ly()的结果加上print()，强制触发图形渲染：

if(any(iris$Sepal.Length < 0)){
  print("Iris is NA.")
} else{
  print(plot_ly(x = iris$Species, y = iris$Sepal.Length, type = "bar"))
  print(plot_ly(x = iris$Species, y = iris$Petal.Length, type = "bar"))
}

补充：原代码中iris$Sepal.Length < 0是向量级别的判断，用any()包裹可以避免条件判断时的警告，确保逻辑更严谨。

2. 用htmltools::tagList()组合图形（适合R Markdown/Shiny）

如果是在R Markdown文档或Shiny应用中，可以用htmltools包将多个Plotly图形组合成一个对象输出，这样就能同时显示：

library(htmltools)

if(any(iris$Sepal.Length < 0)){
  print("Iris is NA.")
} else{
  tagList(
    plot_ly(x = iris$Species, y = iris$Sepal.Length, type = "bar"),
    plot_ly(x = iris$Species, y = iris$Petal.Length, type = "bar")
  )
}

3. 合并为子图（可选，适合同画布展示）

如果希望两个图形在同一画布中上下/左右排列，可以使用Plotly的subplot()函数：

if(any(iris$Sepal.Length < 0)){
  print("Iris is NA.")
} else{
  p1 <- plot_ly(x = iris$Species, y = iris$Sepal.Length, type = "bar")
  p2 <- plot_ly(x = iris$Species, y = iris$Petal.Length, type = "bar")
  subplot(p1, p2, nrows = 2) # 按两行排列
}

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