相互作用图的平均线

Question

有谁知道如何在交互图上添加均值线？我的代码是这样的：

#interaction plot
with(datascen_2minBL, interaction.plot(scenario, role, cw2_sum_ampl_per_min, xlab = "baselines", ylab = "2min sumAmplPerMin"))

我在不同时间点测量了每个参与者的多个响应。每个参与者都有不同的角色“AO”、“RO”、“TO”和“AO”。我的互动线代表每个角色的意思。现在我想添加总平均线。我怎样才能做到这一点？谢谢！

Answer 1

使用 lines，不使用 tapply 的交互变量的 mean 应该会为您提供所需的值。 示例：

with(ToothGrowth, interaction.plot(dose, supp, len, fixed=TRUE, legend=F))
lines(with(ToothGrowth, tapply(len, dose, mean)), col=2)
legend("topleft", lty=1:2, col=c(1, 1, 2), legend=c("OJ", "VC", "grand mean"), 
       title="supp", bty="n", cex=.9)

相互作用图的平均线

mean line to interaction plot

interaction

r