R 创建交互效果图、ggplot或其他

我在一个多元回归模型中发现了预测因素年龄和教育水平之间的交互作用，该模型评估了各种预测因素对酒精消费的影响。我希望使用ggplot绘制这个交互效果图，但另一种方法也可以

我尝试过这样做：

p <- ggplot(DataFrame, aes(ED,AGE, label=interaction-effect))

p <- p + geom_point(colour= "red")+geom_text(size=3) # colour = colr does not work 

p

---

p直截了当的谷歌搜索结果相当不错：




我会提供一些数据，或者使用mtcars数据集。有关更多信息，请查看此。问题越好，答案就越快、越准确。