R中调用plot出现S4类型转double错误的排查求助

核心原因 #

新增随机变量功能后，函数环境出现命名空间优先级变化，导致调用plot(e, s)时默认触发base::plot，而非dismo针对ModelEvaluation类定义的S4绘图方法。尽管通过@import引入了dismo包，但dismo::plot未被导出，无法直接通过命名空间强制调用，且新增代码可能引发了命名冲突或方法调度异常。

解决方法 #

• 显式导入S4方法：在包的NAMESPACE文件中添加：

  importFrom(dismo, plot)
  

  这会将dismo的plot方法纳入包的命名空间优先级，确保调用时匹配正确的S4方法。
• 直接调用内部方法：在函数内部绕过导出限制，直接调用dismo的内部绘图方法：

  dismo:::plot.ModelEvaluation(e, s)
  

  注：三个冒号用于访问包的未导出内部函数，需注意后续dismo版本更新可能改变该方法的名称或实现。
• 检查并修复命名冲突：排查新增的随机变量代码中是否定义了名为plot的变量/函数，若有则立即重命名，避免污染命名空间。
• 调试方法调度：在plot(e, s)前加入以下代码验证方法匹配情况：

  print(class(e))  # 确认e是ModelEvaluation类
  print(methods("plot"))  # 查看当前可用的plot方法是否包含ModelEvaluation相关条目
  

原问题提供的伪可复现代码 #

remotes::install_github("SimonDedman/gbm.auto")
library(gbm.auto)
drumline <- readRDS("2023-03-07_drumline_reefs_DtDropOff.rds")
gbm.auto(samples = as.data.frame(drumline),
         expvar = c("Habitat", "Tide", "Season", "LunarPhase", "Latitude", "Longitude", "Depth_m", "Temperature_C", "Hour", "Yearday", "Month", "DtDropOff"),
         resvar = "CaribbeanReef_CPUE",
         tc = 13,
         lr = list(0.001, 0.0000001),
         bf = 0.9,
         fam1 = "bernoulli",
         smooth = TRUE,
         simp = FALSE,
         savegbm = FALSE,
         BnW = FALSE)

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