R 平均线到交互图

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

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

我在不同的时间点测量了每个参与者的多个回答。每个参与者都有不同的角色“AO”、“RO”、“TO”和“AO”。我的交互线代表每个角色的方式。现在我想加上大平均线。我怎样才能做到这一点？

---

谢谢大家!

使用

行

，不使用交互变量的

平均值

使用

tapply

应给出所需的值。例如：

---

使用

行

，

平均值

，不使用

tapply

的交互变量，应给出所需的值。例如：

---

哦，对不起，我没有仔细考虑我说的话。我是说这两行的意思。即两条线之间的一条线；平均两个。我正忙于工作，所以我现在有时间回到这件事上来。@timothy欢迎，听到这个消息很高兴！哦，对不起，我没有仔细考虑我说的话。我是说这两行的意思。即两条线之间的一条线；平均两个。我正忙于工作，所以我现在有时间回到这件事上来。@timothy欢迎，听到这个消息很高兴！

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)