R 如何将回归交互图转换为ggplot？

有人能告诉我如何使用ggplot绘制以下交互效果（使用工具生成的代码）：

---

xx您需要一个长格式的数据帧：

dfrm <- data.frame(x=rep(x,3), y=c(y1,y2,y3), 
                   group=rep(c("y1","y2","y3") ,each=2) ) 
ggplot(data=dfrm, aes(x=x,y=y,group=group) ) +
                      geom_point()+geom_line(aes(col=group))

dfrm欢迎交叉验证！但这个问题是关于编程的&在堆栈溢出方面会更好。我希望和示例能帮助您开始。请检查您的语法。什么是
腿[1]
和
腿[2]
？谢谢@DWin。如果其他人像我一样是R方面的新手并试图复制：group是调节者“w”-变量，上面的y1、y2、y3是w（值）处的条件值。数据框和ggplot的代码是：'group=c（“w（1）”，“w（1）”，“w（2）”，“w（2）”，“w（3）”，“w（3）”）x=c（40,65,40,65,40,65）y=c（28.5,37.15,30.345,35.895,32.19,34.64）mydata
dfrm <- data.frame(x=rep(x,3), y=c(y1,y2,y3), 
                   group=rep(c("y1","y2","y3") ,each=2) ) 
ggplot(data=dfrm, aes(x=x,y=y,group=group) ) +
                      geom_point()+geom_line(aes(col=group))