Поля::persp(m1, what = "прогноз") не работает с факторами

Question

Я пытаюсь построить несколько трехмерных графиков, включающих две непрерывные переменные, используя persp() функция, которая, я думаю, (все еще) улучшена / заменена margins пакет. Я не уверен на 100% в статусе этой ошибки, потому что нашел этот отчет об ошибке, так что это известная проблема, которая предположительно была исправлена ​​год назад. Кроме того, документация предполагает, что существует margins::persp() функция; но мой margins не загружает его... хотя он принимает аргументы, которые graphics::persp() не... я очень смущен

В двух словах, "effects" вариант работает хорошо, но "prediction" Опция выдает ошибку, ссылаясь на любой фактор в модели. В то же время,

С помощью iris набор данных, с "effect":

library(margins)
library(dplyr)
library(purrr)

m1 <- lm(Sepal.Length ~ Petal.Length + Sepal.Width * Species, data = mutate_if(iris, is.character, as.factor))

persp(m1, "Petal.Length", "Sepal.Width", what = "effect")

Тем не менее, когда я запускаю его для "предсказания"

persp(m1, "Petal.Length", "Sepal.Width", what = "prediction", data =mutate_if(iris, is.character, as.factor))


#> Warning in model.frame.default(Terms, newdata, na.action = na.action, xlev
#> = object$xlevels): variable 'Species' is not a factor
#> Error: variable 'Species' was fitted with type "factor" but type "numeric" was supplied

Как обычно, любые указатели очень ценятся!