berarti garis ke plot interaksi

Question

Adakah yang tahu cara menambahkan garis rata-rata pada plot interaksi? Kode saya berjalan seperti ini:

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

Saya memiliki banyak tanggapan dari setiap peserta yang diukur pada titik waktu yang berbeda. Setiap peserta memiliki peran berbeda "AO", "RO", "TO" dan "AO". Garis interaksi saya mewakili sarana per setiap peran. Sekarang saya ingin menambahkan garis besar yang berarti. Bagaimana saya bisa mencapai itu? TERIMA KASIH!

Answer 1

Menggunakan lines, meanvariabel interaksi tanpa menggunakan tapplyharus memberi Anda nilai yang dibutuhkan. Contoh:

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)