来自拟合lmer
模型。注意:未完成预测变量的转换。
lmer.model=lmer(share ~ gender+ age_group + overall_photo_share_freq_group+
affiliative_score_group*valence_group*condition+
self_enhancing_score_group*valence_group*condition+
self_defeating_score_group*valence_group*condition+
aggressive_score_group*valence_group*condition+
(1|pid), data = picshare_df, REML = FALSE)
我提取了手段:
lsmeans(lmer1.model, ~condition*valence_group*self_defeating_score_group, at=c(valence_group="very_positive", self_defeating_score_group="High"),options = list(type = "response"))
condition valence_group self_defeating_score_group lsmean
baseline very_positive High -0.32
perspective_taking very_positive High 0.061
privacy_perspective very_positive High -0.2382
cat_plot
当我使用from package绘制交互时,interactions
我得到了对开图。
cat_plot(model=lmer1.model, pred= condition, modx =self_defeating_score_group, mod2 = valence_group, plot.points = FALSE, geom = "line", line.thickness=2,pred.point.size=6, interval = FALSE, vary.lty=TRUE, modx.values = c("High"), mod2.values = c("very_positive"))
'perspective_taking' 条件的lsmeans
值最高。但在交互图中,此配置的值最低。