R图不生成曲面图

Question

我完全是个新手，真的很想得到你的帮助！

尝试创建曲面3D打印来绘制交互，但它不显示该打印(当我执行scatter3D打印时，它可以工作)。我使用了一个数据框，我希望x&y是第1列和第2列，而z(模型中y的预测值)是第3列。

尝试分别定义每个轴，没有区别)：

df = data.frame(hobby = hobby,work = work, pred_well = predict.lm(m5.int)) 
plot(df)

plot_ly( df, type ="surface")

Answer 1

我最终找到了它工作的原因，并发布了它，因为我看到很多人都在为此而苦苦挣扎

library(plotly) 
library(reshape2)

#Graph Resolution
graph_reso = 0.05

#Setup Axis
axis_x = seq(min(hobby), max(hobby), by = graph_reso)
axis_y = seq(min(work), max(work), by = graph_reso)

#Sample points
lm_surface = expand.grid(hobby = axis_x,work = axis_y,KEEP.OUT.ATTRS = F)
lm_surface$wellness = predict.lm(lm(wellness ~ work*hobby), newdata = lm_surface)
lm_surface = acast(lm_surface, work ~ hobby, value.var = "wellness") 

p_1  = plot_ly(myData, x = ~hobby, y = ~work, z = ~wellness, type = "scatter3d", mode = "markers" )%>% layout(title="Interaction Effect(Work Hours* Hobby Hours) on Wellness")

p_1 = add_trace(p = p_1,
                     z = lm_surface,
                     x = axis_x,
                     y = axis_y,
                     type = "surface")