如何在plot3d中将两3维散点图合并在一个图中

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

A                                                         B               
    V1                            V2                             V3                        V1                     V2                   V3
5.45723823        0.004840202        0.003863857        5.233240243        0.014101889        0.001664852
6.909236549        0.004802125        0.003800709        5.138034101        0.014091256        0.001052286
8.024182753        0.005155534        0.003066355        6.158282709        0.014238343        0.001578958
6.494170618        0.005175345        0.004774726        6.70344598        0.01431751        0.001507776
5.265621407        0.005388162        0.004717521        4.944744773        0.014310035        0.001540221
6.69586664        0.005482007        0.003335291        5.908974265        0.014425414        0.001764037
7.609316698        0.005468409        0.003430985        5.1033325        0.014483689        0.001937163
6.448086937        0.005298856        0.005576227        5.351683906        0.014537684        0.0018389
8.118149139        0.005159574        0.003590302        5.723593742        0.014582237        0.001586362
6.53803007        0.005711317        0.003980453        5.699890966        0.014525269        0.001400254


如上面的数据，有A、B 两个对象，分别用变量V1，V2，V3度量，可以用plot3d画出两个3维图，但怎么把他们放在一个3维图中表示，并以颜色区别？

感谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：plot3D plot 散点图 如何 散点图

在此先感谢

latte001 发表于 2015-11-10 14:24
在此先感谢

亲，解决了么我也遇到了同样的问题~

1. library(scatterplot3d)
   
2. set.seed(0)
   
3. t=rnorm(100,mean = 0,sd=10)
   
4. A=data.frame(x=t^2,y=t+1,z=t^3)
   
5. B=data.frame(x=t^3,y=t+2,z=t^2)
   
6. AB=rbind(A,B)
   
7. cols=rep(c('red','blue'),rep(100,2))
   
8. scatterplot3d(AB, color = cols,grid=TRUE, box=FALSE,main = 'Scatterplot for A and B',
   
9.               sub=R.version.string)
   
10. legend("topleft", legend = c('A','B'),bty = 'n',xpd = TRUE,horiz = TRUE,
    
11.        col = c('red','blue'), pch = 1, inset = -0.1)
    
12. 

复制代码