R语言中带有拟合回归3D平面的3D散点图答案

【问题标题】：3D scatter plot with a fitted regression 3D plane in R languageR语言中带有拟合回归3D平面的3D散点图
【发布时间】：2019-10-11 21:44:31
【问题描述】：

我正在尝试绘制 3D 多项式回归。我有两个自变量（卧室面积和数量）和一个因变量（价格）。每个自变量都有自己的多项式次数（面积有3次多项式，卧室数量有4次多项式）。

到目前为止，我只能使用“scatterplot3d”包进行 3D 绘图，但无法在绘图中创建拟合的回归 3D 平面。

我的问题：我想创建一个带有拟合回归 3D 平面和散点图的 3D 图，我应该使用哪个包？在我的图中，代码看起来如何具有拟合的回归 3D 平面（如果您有一个大致的想法）？

谢谢你的帮助:)

注意：我在 r studio cloud 中使用 r 语言。

【问题讨论】：

点击此链接，您可以了解如何使用包plotly:stackoverflow.com/questions/44322350/… 绘制带有回归平面的 3D 散点图
仅供参考，我删除了 rstudio 标签，因为那是关于 RStudio，而不是 R 语言本身。我知道您在 RStudio Cloud 中使用它，但我怀疑您的问题或问题是否特定于此。
Zach，这很接近“推荐或查找书籍、工具、软件库”，即off-topic。如果您提供一个可重复的问题，包括您尝试过的示例数据和代码，这将非常有帮助。 MWE 中的关键词是minimal 和working。请看stackoverflow.com/questions/5963269/…

标签： r

【解决方案1】：

这是一个使用 rockchalk 包中的 plotPlane 的示例，它“在后台”使用 persp 函数，但简化了绘图操作的细节。请参阅plotPlane 的帮助（键入?plotPlane），了解该函数的工作原理以及用于自定义绘图的各种选项的详细信息。

library(rockchalk)

m1 = lm(mpg ~ poly(wt,2) + disp, data=mtcars)

old.par = par(mfrow=c(1,2), mar=c(1,1,1,1))

plotPlane(m1, "wt", "disp", pch=16, col=rgb(0,0,1,0.1), drawArrows=TRUE, alength=0, 
          acol="red", alty=1,alwd=1, theta=25, phi=0)
plotPlane(m1, "wt", "disp", pch=16, col=rgb(0,0,1,0.1), drawArrows=TRUE, alength=0, 
          acol="red", alty=1,alwd=1, theta=35, phi=20)

如果模型中有两个以上的因变量，plotPlane 会将其他变量（未绘制的变量）设置为其平均值（对于数值变量）或众数（对于因子）。例如：

m2 = lm(mpg ~ poly(wt,2) + disp + poly(hp,2) + poly(wt,2), data=mtcars)

plotPlane(m2, "wt", "disp", pch=16, col=rgb(0,0,1,0.1), drawArrows=TRUE, alength=0, 
          acol="red", alty=1,alwd=1, theta=25, phi=0)
plotPlane(m2, "wt", "disp", pch=16, col=rgb(0,0,1,0.1), drawArrows=TRUE, alength=0, 
          acol="red", alty=1,alwd=1, theta=35, phi=20)

# Reset graphical parameters back to defaults
par(old.par)

【讨论】：