R 使用SjPlot打印回归时更改交互项的标签

我试图使用sjPlot来绘制包含几个交互项的回归系数。我已经更改了所有变量的标签，使它们更易于理解，但不幸的是，交互显示为变量_1:variable_2

有没有办法修改这些交互的输出，使其显示为“label_1 x label_2”或类似的内容

下面是一个例子：

data(mtcars)

library(ggplot2)
library(sjPlot)
library(sjlabelled)
library(dplyr)

mtcars <- mtcars %>% var_labels(
  mpg = "Miles per Gallon",
  cyl = "Cylinder"
)

x <- lm(hp ~ mpg*cyl, data=mtcars)

plot_model(x)

数据（mtcars）
图书馆（GG2）
图书馆（sjPlot）
图书馆（带标签）
图书馆（dplyr）
mtcars%var\u标签(
mpg=“每加仑英里数”，
cyl=“圆柱体”
)
x您可以在
scale\u x\u discrete
功能中添加标签。这样做可以避免向变量添加var_标签

data(mtcars)
x <- lm(hp ~ mpg*cyl, data=mtcars) 

plot_model(x) +
  scale_x_discrete(labels=list(
    mpg = "Miles per Gallon", 
    cyl = "Cylinders",
    `mpg:cyl` = "Miles per Gallon : Cylinders"))

数据（mtcars）
x