Есть ли способ изменить цвет заголовка в пакете pdp для R?

Question

Можно ли изменить цвет заголовков графиков в пакете pdp для R? Хочу, чтобы цвет был светло-серым. Вы можете удалить цвет графика pdp по отдельности, но если я хочу расположить их в сетке, цвет возвращается к значению по умолчанию. См. Пример ниже. Заранее спасибо.

library(pdp)
library(grid)
library(gridExtra)

df <- data.frame(v1=rnorm(100), 
           v2=as.factor(sample(c("A","B","C"), 100, T)),
           v3=rlnorm(100))

mod    <- glm(v1~v2+v3, data=df)
modpdp <- pdp::partial(mod, grid.resolution = 10, pred.var = c("v2", "v3"))
p1     <- pdp::plotPartial(modpdp, trellis.par.set(strip.background=list(col="lightgrey")))
p2     <- pdp::plotPartial(modpdp, trellis.par.set(strip.background=list(col="lightgrey")))

grid.arrange(arrangeGrob(p1), arrangeGrob(p2))

Answer 1

Это немного странная система. Вам нужно передать аргумент strip =, который сам принимает результат вызова lattice::strip.custom. Он находится внутри вызова strip.custom, где вы устанавливаете цвет с помощью bg =

library(pdp)
library(grid)
library(gridExtra)
library(lattice)

df <- data.frame(v1 = rnorm(100),
                 v2 = as.factor(sample(c("A", "B", "C"), 100, T)),
                 v3 = rlnorm(100))


mod    <- glm(v1 ~ v2 + v3, data = df)
modpdp <- partial(mod, grid.resolution = 10, pred.var = c("v2", "v3"))
p1     <- plotPartial(modpdp, strip = strip.custom(bg = "lightgrey"))
p2     <- plotPartial(modpdp, strip = strip.custom(bg = "lightgrey"))

grid.arrange(arrangeGrob(p1), arrangeGrob(p2))

^{Создано 25 мая 2020 года пакет REPEX (v0.3.0)}