scatterplot3d

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

记得以前某个同学问起如何画这样的图，碰巧看到了
library(scatterplot3d)
## example 5
data(trees)
s3d <- scatterplot3d(trees, type="h", highlight.3d=TRUE,
                     angle=55, scale.y=0.7, pch=16, main="scatterplot3d - 5")
# Now adding some points to the "scatterplot3d"
s3d$points3d(seq(10,20,2), seq(85,60,-5), seq(60,10,-10),
             col="blue", type="h", pch=16)
# Now adding a regression plane to the "scatterplot3d"
attach(trees)
my.lm <- lm(Volume ~ Girth + Height)
s3d$plane3d(my.lm, lty.box = "solid")


eg2.
data("wage1")
attach(wage1)
bw <- npudensbw(~lwage+ordered(numdep),tol=.1,ftol=.1,data=wage1)
numdep.seq <- sort(unique(numdep))
lwage.seq <- seq(min(lwage),max(lwage),length=50)
wage1.eval <- expand.grid(numdep=ordered(numdep.seq),lwage=lwage.seq)
fhat <- fitted(npudens(bws=bw,newdata=wage1.eval))
f <- matrix(fhat,length(unique(numdep)),50)
scatterplot3d(wage1.eval[,1],wage1.eval[,2],fhat,
              ylab="Log wage (lwage)",
              xlab="Number of Dependents (numdep)",
              zlab="Joint Density",
              angle=15,box=FALSE,type="h",grid=TRUE,color="blue")
detach(wage1)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：scatterplot Scatter plot3D plot SCAT library example 如何

用matlab软件画3d图据说也很简单方便的。

推荐工程用的3D绘图软件Voxler，参见主页的作图吧
www.goldensoftware.com

R的3D图还真是丑啊。呵呵

不怎么好看

不错哦，困扰很久，解开了

楼主，“wage1”是R包里面的例子吗？如何才能找到，谢谢

谢谢分享