调用DataExplorer::plot_str()后RStudio Plots面板其他绘图丢失问题

该问题由RStudio绘图/视图面板的内容记录规则与部分包的输出格式不匹配导致：

• 你定位到的DataExplorer::plot_str()、Keras相关可视化函数的输出为HTML格式的交互式控件，不属于R标准绘图设备（RStudioGD）支持的静态绘图范畴
• RStudio的Plots面板仅会缓存标准绘图设备输出的静态内容，交互式控件默认输出到Viewer面板，不会被计入Plots的历史记录
• 当后续代码再次生成标准静态绘图时，RStudio会从Viewer面板切回Plots面板，你误认为之前的交互式绘图已存入Plots历史，切换时找不到对应内容就表现为「绘图丢失」。

base绘图、ggplot2绘图均属于标准设备输出，所以多图切换无异常；DataExplorer::plot_intro()输出为ggplot2格式的静态图，因此也不会触发问题。

方案1：隔离交互式输出与静态绘图设备 #

每次调用生成交互式输出的函数后，手动新建标准绘图设备，避免后续静态绘图的逻辑影响历史记录：

# 第一个静态绘图
base::plot(iris, main="iris 1")
# 交互式输出（自动展示在Viewer面板）
DataExplorer::plot_str(mtcars)
# 手动新建标准绘图设备
dev.new()
# 后续静态绘图输出到新设备，Plots历史会保留第一个静态绘图记录
base::plot(iris, main="iris 2")

方案2：将交互式内容转为静态图存入Plots历史 #

如需将交互式绘图的内容也纳入Plots面板统一管理，可通过工具将HTML输出转换为静态图片后输出到标准设备：

# 首次使用需安装依赖
# install.packages(c("webshot2", "htmlwidgets", "png", "grid"))
library(htmlwidgets)
library(webshot2)
library(png)
library(grid)

# 生成交互式绘图对象
p <- DataExplorer::plot_str(mtcars)
# 临时保存为HTML文件
tmp_html <- tempfile(fileext = ".html")
saveWidget(p, tmp_html)
# 捕获HTML渲染结果为PNG
tmp_png <- tempfile(fileext = ".png")
webshot(tmp_html, tmp_png, vwidth = 800, vheight = 600)
# 读取PNG并输出到标准绘图设备
img <- readPNG(tmp_png)
grid.raster(img)

方案3：调整RStudio面板布局 #

将Viewer面板与Plots面板并列展示，交互式内容直接在Viewer面板查看，静态绘图在Plots面板查看，两类内容互不干扰。

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