«Ошибка в Ops.data.frame(guide_loc, Panel_loc): ‘==’ определено только для кадров данных одинакового размера» при использовании draw() из Gratia для рисования GAM в r

Я пытаюсь нарисовать GAM в R, используя приведенный ниже код. Этот код всегда работал, и я мог нарисовать частичный эффект моего сглаженного термина, но случайно он больше не работает, постоянно вызывая эту ошибку:

Error in Ops.data.frame(guide_loc, panel_loc) : 
  ‘==’ only defined for equally-sized data frames

Мой код выглядит следующим образом:

library(mgcv)
library(gratia)

gam1 <- mgcv::gam(mpg ~ cyl +
                          s(disp), data = mtcars, method = "REML")

draw(gam1)

# directly drawing function from the package also triggers the error

gratia::draw(gam1)

Сообщение об ошибке, которое я получаю, не имеет для меня смысла, поскольку я не понимаю, как оно влияет на размер кадра данных (или, по крайней мере, не на несколько кадров данных, как следует из формулировки).

Эта ошибка впервые возникла, когда я попытался взять производные модели и вместо этого нарисовать их с помощью следующего кода:

derivatives1 <- derivatives(gam1,
                             term = "s(disp)",
                            order = 1L,
                             type = "central",
                             n = 250,
                             eps = 1,
                             interval = "simultaneous",
                             n_sim = 500000,
                             unconditional = TRUE)

draw(derivatives1)

который рисует ту же ошибку:

Error in Ops.data.frame(guide_loc, panel_loc) : 
  ‘==’ only defined for equally-sized data frames

Но теперь эта ошибка возникает каждый раз, когда я пытаюсь нарисовать игру или ее производные. Я попытался перезапустить r и выгрузить пакеты, чтобы убедиться, что это не связано с конфликтом пакетов, но ошибка все равно появляется.

Как я могу устранить эту ошибку и нарисовать свои GAM и производные от сглаживаний GAM?

Обновлять

Вот информация о моей сессии:

R version 4.3.3 (2024-02-29)
Platform: aarch64-apple-darwin20 (64-bit)
Running under: macOS Sonoma 14.4

Matrix products: default
BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib 
LAPACK: /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/lib/libRlapack.dylib;  LAPACK version 3.11.0

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

time zone: America/New_York
tzcode source: internal

attached base packages:
[1] grid      stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] kableExtra_1.3.4   mediation_4.5.0    mvtnorm_1.2-4      MASS_7.3-60.0.1    sandwich_3.1-0     schoenberg_2.0.3  
 [7] mgcViz_0.1.11      qgam_1.3.4         viridis_0.6.5      viridisLite_0.4.2  tidymv_3.4.2       scales_1.3.0      
[13] gamm4_0.2-6        mgcv_1.9-1         nlme_3.1-164       modelsummary_1.4.1 sjPlot_2.8.14      ggpubr_0.6.0      
[19] gridExtra_2.3      lme4_1.1-35.2      Matrix_1.6-5       countrycode_1.5.0  labelled_2.11.0    haven_2.5.4       
[25] lubridate_1.9.2    forcats_1.0.0      stringr_1.5.1      dplyr_1.1.4        purrr_1.0.2        readr_2.1.5       
[31] tidyr_1.3.1        tibble_3.2.1       ggplot2_3.5.0      tidyverse_2.0.0    gratia_0.9.0      
     

Обновление 2

Вот отслеживание ошибки из чистого сеанса, в котором загружаются только mgcv и gratia:

10: stop(gettextf("%s only defined for equally-sized data frames", 
        sQuote(.Generic)), domain = NA)
9: Ops.data.frame(guide_loc, panel_loc)
8: unlist(guide_loc == panel_loc)
7: add_guides(gt, guides == "collect")
6: plot_table.ggplot(X[[i]], ...)
5: FUN(X[[i]], ...)
4: lapply(x$plots, plot_table, guides = guides)
3: build_patchwork(plot, plot$layout$guides %||% "auto")
2: print.patchwork(x)
1: (function (x, ...) 
   UseMethod("print"))(x)

и вот информация о сеансе для этого чистого сеанса:

R version 4.3.3 (2024-02-29)
Platform: aarch64-apple-darwin20 (64-bit)
Running under: macOS Sonoma 14.4

Matrix products: default
BLAS:   /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib 
LAPACK: /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/lib/libRlapack.dylib;  LAPACK version 3.11.0

locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

time zone: America/New_York
tzcode source: internal

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] gratia_0.9.0 mgcv_1.9-1   nlme_3.1-164

loaded via a namespace (and not attached):
 [1] Matrix_1.6-5       mvnfast_0.2.8      gtable_0.3.4       dplyr_1.1.4        compiler_4.3.3     tidyselect_1.2.1  
 [7] Rcpp_1.0.12        stringr_1.5.1      tidyr_1.3.1        splines_4.3.3      scales_1.3.0       yaml_2.3.8        
[13] fastmap_1.1.1      lattice_0.22-5     ggplot2_3.5.0      R6_2.5.1           labeling_0.4.3     generics_0.1.3    
[19] patchwork_1.1.3    knitr_1.45         tibble_3.2.1       munsell_0.5.0      RColorBrewer_1.1-3 pillar_1.9.0      
[25] rlang_1.1.3        utf8_1.2.4         stringi_1.8.3      xfun_0.43          cli_3.6.2          withr_3.0.0       
[31] magrittr_2.0.3     digest_0.6.35      grid_4.3.3         rstudioapi_0.16.0  lifecycle_1.0.4    ggokabeito_0.1.0  
[37] vctrs_0.6.5        evaluate_0.23      glue_1.7.0         farver_2.1.1       fansi_1.0.6        colorspace_2.1-0  
[43] purrr_1.0.2        rmarkdown_2.26     tools_4.3.3        pkgconfig_2.0.3    htmltools_0.5.8.1