通过向线条添加标记来自定义 sjPlot

如何解决通过向线条添加标记来自定义 sjPlot

我使用 sjplot 的 plot_model 来绘制三向交互模型的预测边际。为了帮助观众更好地区分线条，我想为线条添加标记。这是我的模型规范：

formula1 <- immiImpactIndex ~ LatinoNCDiff*factor(school)*widindex 
model1 <- lm(formula1,dataFrame)
plot1 <- plot_model(model1,type = 'pred',terms =
c('widindex','LatinoNC16[10000,50000,500000,2000000,4000000]','school'),colors = 'bw',ci.lvl =NA)
plot1 + ylim(0.2,1) + scale_linetype_manual(values = c('solid','dotdash',11,88,'twodash')

，其中 LatinoNCDiff 是连续变量，school 是分类变量，widindex 是另一个连续变量。

上面的代码给了我一个看起来像这样的情节：

但我也想在线上添加不同样式的点（标记）以更好地区分它们。我尝试了以下代码：

plot1 + ylim(0.2,'two dash')
+ scale_shape_manual(values = c(0,1,15,16,8)

然而，我的情节没有发生任何变化。我想知道如何将这些点符号添加到预测线上。提前致谢。