R 如何执行以下任务

使用数据集msleep，根据bodywt和sleep_总因子绘制qplot，并使用geo_smooth添加一条线。使用qplot应用线性回归模型绘制一条线，以消除标准误差。按vore分组。通过vore将模型分为多个方面。

qplot（bodywt，sleep\u total，data=msleep）+geom\u smooth（method=“lm”）+geom\u path（aes（group=vore））+facet\u grid（.~vore）

你几乎做到了：

库（ggplot2）
qplot（x=bodywt，y=sleep_total，data=msleep）+
几何平滑（method=“lm”，公式=y~x，se=FALSE）+
镶嵌面包裹（镶嵌面=变面（vore），nrow=3，scales=“free_x”）

---

Thamks很多，这很有效