Форматирование графика взаимодействия в многоуровневом анализе

Question

Я построил сюжет взаимодействия, но не знаю, как его отформатировать. Легенда с правой стороны должна содержать текст "Мотивационные проблемы" (синий квадрат) и "Проблемы со знаниями" (красный квадрат), чтобы можно было четко определить линии.

К сожалению, я не могу предоставить больше данных, чем следующие строки.

modelfit.cmppi.hlm <- lmer(zZufri ~  TreffID + zPssg_sd + zprobtyp + zPssg_sd*zprobtyp + (TreffID | GroupID/PersonID), data=df.hlm, REML = TRUE)
summary(modelfit.cmppi.hlm)

ranova(modelfit.cmppi.hlm)  # Remove Random slopes 
ranova(modelfit.cmppi.hlm, reduce.terms = FALSE)  # Remove Random-Intercepts 

# Interaktion plot
library(sjPlot)
plot_model(modelfit.cmppi.hlm, 
       type = "int", 
       axis.title = c("others <-- Fit --> direct", "Satisfaction"), 
       legend.title = "red = Knowledge\nblue = Motivational problems")