[讨论]如何实现R中三维图形的任意转动

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

对Matlab的图形旋转功能很欣赏,

所以对R的三维作图一直不爽,想找有没有合适的包实现类似功能,

无奈英文功力还是低了些,现在还没有找到,就自己动手写了简短的程序段,

运行的时候只要插入image(),persp()前面略微能看到图形旋转,但想比较Matlab的功能还差老远.

不知大家有啥实现方法?交流一下,

x = seq(-10, 10, length= 30)
y =x
f = function(x,y) { r = sqrt(x^2+y^2); 10 * sin(r)/r }
z = outer(x, y, f)
z[is.na(z)] =1
###############################
      phie=seq(0,180,9)
      ther=seq(0,180,9)
      par(ask=TRUE)
     # 开始图形旋转设定:
        for (i in 1:9)

######################
 # 一个三维绘图函数
persp(x, y, z, theta = ther,phi = phie, expand = 0.5, col = "lightblue",
      ltheta = 120, shade = 0.75, ticktype = "detailed",
      xlab = "X", ylab = "Y", zlab = "Sinc( r )")

#

#

[此贴子已经被作者于2008-6-9 19:41:18编辑过]

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：如何实现 三维图形 图形的 三维图 function 讨论 三维 图形

支持，关注中！

"rgl" package

packageDescription("rgl")

=======================

Package: rgl
Version: 0.79
Date: 2008-06-03
Title: 3D visualization device system (OpenGL)
Author: Daniel Adler <dadler@uni-goettingen.de>, Duncan Murdoch <murdoch@stats.uwo.ca>
Maintainer: Daniel Adler <dadler@uni-goettingen.de>
Depends: R (>= 2.4.0),stats,grDevices
Suggests: MASS
Description: 3D visualization device (OpenGL)
License: GPL
URL: http://rgl.neoscientists.org
SystemRequirements: OpenGL, GLU Library, zlib (optional), libpng (optional), FreeType (optional)
Packaged: Tue Jun 3 09:30:24 2008; murdoch
Built: R 2.7.0; i386-pc-mingw32; 2008-06-03 17:21:04; windows

=======================

R 果真很强大,这就是开源的力量吧.相信在全世界高手的不断努力下,R将会越来越完美.

"rgl" package的确强大,能使现三维旋转.

感谢luzifer_li 提供这么有用的信息,

感谢Daniel Adler,Duncan Murdoch贡献"rgl" package,解决了的三维旋转的问题.

如果有包能解决R的海量数据处理问题,那么R可就近乎完美了,

期待R更加强大[em01]

对"rgl" package进行一些补充
这是作者发布rgl包的官方主页,又很多有用信息诸如rgl包的制作原理,函数的说明等等....

http://rgl.neoscientists.org/about.shtml

顺便引来rgl包做的三维图,很漂亮的.

 

 

rgl包使用的简短指导文档:

RGL: A R-library for 3D visualization with OpenGL, by Nenadic, O., Adler, D., Zucchini, W. Internal Report, submitted to Interface 2003, Salt Lake City.         RGL_INTERFACE03.pdf (789k)

Interactive Visualization of multi-dimensional data in R using OpenGL, by Adler, D. Diplomarbeit (mini-thesis)        RGL_MINITHESIS.pdf (645k)

[此贴子已经被作者于2008-6-11 19:38:49编辑过]