如何去除aweSOM交互式SOM图的提示文本并保存为PNG？

针对你遇到的aweSOM包生成的SOM图保存PNG时带"Hover Over The Plot For Information"提示文本的问题，提供以下几种实用解决方案：

方法1：直接移除Plotly对象中的提示注释 #

aweSOMplot返回的是Plotly交互式对象，提示文本是通过annotations元素添加的，直接清空该元素即可：

# 生成原plot后，清理注释
plot_clean <- plot %>%
  plotly::layout(annotations = list())

# 保存为PNG，可按需调整宽高
plotly::save_image(plot_clean, "aweSOM_clean_plot.png", width = 800, height = 600)

方法2：用webshot截取指定区域 #

如果方法1效果不佳，可以先保存HTML，再精准截取绘图区域：

1. 先安装依赖包：

install.packages("webshot")
webshot::install_phantomjs() # 必须安装PhantomJS才能截图

2. 执行保存和截取：

# 保存交互式HTML文件
htmlwidgets::saveWidget(plot, "aweSOM_temp.html")

# 截取可视区域（或手动指定坐标裁剪）
webshot::webshot("aweSOM_temp.html", "aweSOM_cropped_plot.png",
                 cliprect = "viewport", # 自动截取可视区域，避开底部提示
                 vwidth = 800, vheight = 600)

如果提示文本位置固定，也可以用cliprect = "0,0,800,550"这样的坐标（x1,y1,x2,y2）手动裁剪掉底部区域。

方法3：自定义无提示的aweSOMplot函数 #

如果需要频繁生成无提示的图，可以封装一个自定义函数，直接跳过提示文本的添加：

my_aweSOMplot <- function(som, type, data, variables, superclass = NULL, ...) {
  # 调用原函数生成图
  p <- aweSOM::aweSOMplot(som = som, type = type, data = data, 
                           variables = variables, superclass = superclass, ...)
  # 移除提示注释
  p$x$layout$annotations <- NULL
  return(p)
}

# 使用自定义函数生成无提示的图
plot_clean <- my_aweSOMplot(som = iris.som, type = "Cloud", data = full.data, 
                            variables = c("Species", "Sepal.Length", "Sepal.Width",  
                                          "Petal.Length", "Petal.Width"), 
                            superclass = superclasses_pam)

# 保存
plotly::save_image(plot_clean, "aweSOM_custom_plot.png")

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