楼主: liu7788414
60866 17

[问答] R中如何画出这种三维网格图 [推广有奖]

  • 0关注
  • 15粉丝

已卖:225份资源

本科生

75%

还不是VIP/贵宾

-

威望
0
论坛币
7119 个
通用积分
36.5217
学术水平
45 点
热心指数
49 点
信用等级
48 点
经验
2696 点
帖子
27
精华
1
在线时间
70 小时
注册时间
2014-11-17
最后登录
2025-9-24

楼主
liu7788414 在职认证  发表于 2015-2-3 21:13:47 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
请高手帮忙,这种图R肯定可以画,但是该用什么包什么函数呢?
二维码

扫码加我 拉你入群

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

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

关键词:如何

三维网格图.jpg (42.89 KB)

三维网格图.jpg

沙发
niu9146 发表于 2015-2-4 13:34:33
  1. require(grDevices)
  2. x <- seq(-10, 10, length= 30)
  3. y <- x
  4. f <- function(x, y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r }
  5. z <- outer(x, y, f)
  6. z[is.na(z)] <- 1
  7. op <- par(bg = "white")

  8. persp(x, y, z, theta = 30, phi = 30,
  9.       expand = 0.5, col = drapecol(z))
  10. persp(x, y, z, theta = 45, phi = 20,
  11.       expand = 0.5, col = drapecol(z),
  12.       r=180,
  13.       ltheta = 120,
  14.       shade = 0.75,
  15.       ticktype = "detailed",
  16.       xlab = "X", ylab = "Y", zlab = "Sinc( r )" ,
  17.       #border=30
  18. )
复制代码
Rplot.jpeg

我也新手,网格线和投影没弄出来,哪位高手补充??


Rplot01.jpeg (52.02 KB)

Rplot01.jpeg

已有 2 人评分学术水平 热心指数 信用等级 收起 理由
ryoeng + 1 + 1 + 1 精彩帖子
liu7788414 + 1 + 1 + 1 精彩帖子

总评分: 学术水平 + 2  热心指数 + 2  信用等级 + 2   查看全部评分

藤椅
ryoeng 在职认证  发表于 2015-2-4 15:18:36
提示: 作者被禁止或删除 内容自动屏蔽

板凳
niu9146 发表于 2015-2-6 11:43:41
ryoeng 发表于 2015-2-4 15:18
rlg程序包
http://cran.r-project.org/web/packages/rgl/index.html
谢谢指点!!!!

报纸
素直に 发表于 2015-2-6 13:55:34
ryoeng 发表于 2015-2-4 15:18
rlg程序包
http://cran.r-project.org/web/packages/rgl/index.html
rlg? 打错了吧,不是rgl 吗

地板
O入火 发表于 2015-7-13 15:53:58
同求解决方案,楼主解决了么

7
樱井慕心 发表于 2016-1-23 12:28:17
niu9146 发表于 2015-2-4 13:34
我也新手,网格线和投影没弄出来,哪位高手补充??
大神,我这有两组时间序列数据(X,Y),只能知道他们各自的经验分布函数(分布函数未知),怎么画出类似上面的图,考察他们的尾部相依结构

8
╰﹀ヤ埖瓣雨 发表于 2016-3-4 16:48:51
require(grDevices)
> 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
> op <- par(bg = "white")
>
> persp(x, y, z, theta = 30, phi = 30,
+       expand = 0.5, col = drapecol(z))
Error in persp.default(x, y, z, theta = 30, phi = 30, expand = 0.5, col = drapecol(z)) :
  没有"drapecol"这个函数


请问这是为什么呢

9
小笼包zone 发表于 2016-5-19 00:29:01
╰﹀ヤ埖瓣雨 发表于 2016-3-4 16:48
require(grDevices)
> x  y  f  persp(x, y, z, theta = 30, phi = 30,
+       expand = 0.5, col = d ...
col = drapecol(z)改成col = rainbow(1000)试试

10
DataRQQ 发表于 2016-10-31 15:39:42
niu9146 发表于 2015-2-4 13:34
我也新手,网格线和投影没弄出来,哪位高手补充??
您这个是z=x^2+y^2吧?也就是说z轴上的数据是根据x轴和y轴算出来的,如果z轴的数据不是通过x,y轴算出来的,而是它本身变量的呢?这个代码怎么写?

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-1-18 18:58