在 R 中绘制 3D 图

【问题标题】：Drawing a 3D plot in R在 R 中绘制 3D 图
【发布时间】：2017-01-11 04:21:00
【问题描述】：

给定一个 R 代码，我想绘制一个 3D 曲面图。

R代码如下：

x=seq(1,5,1)
y=seq(6,10,1)
m=as.matrix(expand.grid(x,y))
a=m[,1]+m[,2]
mm=cbind(m,a)
mm1=data.frame(aaaa=mm[,1],bbbb=mm[,2],cccc=mm[,3])

我想绘制 3D 曲面图，其中“aaaa”是“x”轴，“bbbb”是“y”轴，“cccc”是“z”轴。

【问题讨论】：

3d 曲面图的基本函数是persp()。查看文档 (?persp)

标签： r plot 3d

【解决方案1】：

试试这个：

# surface plot
x=seq(1,5,1)
y=seq(6,10,1)
z <- outer(x, y)
nrz <- nrow(z)
ncz <- ncol(z)
jet.colors <- colorRampPalette( c("blue", "green") )
nbcol <- length(a)
color <- jet.colors(nbcol)
zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz]
facetcol <- cut(zfacet, nbcol)
persp(x, y, z, col = color[facetcol], phi = 30, theta = -30)

或者简单地说：

library(rgl)
persp3d(x,y,z, col=z)

【讨论】：