求助：R语言中ggplotly转换绘图生成空白图的问题

数据老陈

2026-6-23

R中ggplotly生成空白图问题排查与解决

问题描述

执行以下代码时，直接调用ggplot对象p可正常显示散点图，但使用ggplotly(p)转换后生成空白图：

library(plotly)
library(ggplot2)

data(mtcars)
p <- ggplot(mtcars, aes(x = wt, y = mpg)) +
    geom_point()

ggplotly(p)

已尝试卸载重装R与RStudio，当前环境为最新版本：R 4.4.0、RStudio 2024.04.1、plotly 4.10.4。此外，使用原生plot_ly()生成的图保存为HTML后，在浏览器单独页面可正常显示：

plot <- plot_ly(data = mtcars, x = ~wt, y = ~mpg, type = 'scatter', mode = 'markers')
htmlwidgets::saveWidget(plot, "test_plot.html")
browseURL("test_plot.html")

可行解决方案

调整RStudio绘图渲染后端
打开RStudio的Tools -> Global Options -> General -> Graphics，将绘图后端从AGG切换为Default（或尝试Cairo后端），重启RStudio后重新运行代码测试。
强制在浏览器中渲染ggplotly输出
将转换后的plotly对象保存为HTML文件并打开，或直接调用浏览器显示：
```
htmlwidgets::saveWidget(ggplotly(p), "ggplotly_test.html")
browseURL("ggplotly_test.html")
```
更新所有依赖包
运行以下命令更新所有已安装的包，确保plotly、ggplot2、htmlwidgets等依赖处于兼容版本：
```
update.packages(ask = FALSE)
```

排查包冲突
清理当前环境并仅加载必要包，排除其他包的干扰：

# 卸载所有非基础包
detachAllPackages <- function() {
  basic.packages <- c("package:stats","package:graphics","package:grDevices","package:utils","package:datasets","package:methods","package:base")
  package.list <- search()[ifelse(unlist(gregexpr("package:",search()))==1,TRUE,FALSE)]
  package.list <- setdiff(package.list,basic.packages)
  if (length(package.list)>0)  for (package in package.list) detach(package, character.only=TRUE)
}
detachAllPackages()
rm(list = ls())

# 仅加载ggplot2和plotly
library(ggplot2)
library(plotly)

data(mtcars)
p <- ggplot(mtcars, aes(x = wt, y = mpg)) + geom_point()
ggplotly(p)