如何用叠加的2d图制作3d图？
提问于 2014-06-15 21:09:22
我想按下面的情节情节。我试图搜索几个包和绘图函数，但我找不到解决方案。
我的数据有四列。
ID F R M
1 2 3 4
2 4 6 7
...我希望看到M和R之间关于每个F值(1、2、3、.)之间的关系。所以，我希望F沿着x轴，R沿着y轴，M作为z轴，如下图所示。
谢谢。
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-06-15 23:41:14
您可以使用lattice cloud绘图来完成这类事情，使用来自latticeExtra的panel.3dpolygon。
library(latticeExtra)
# generating random data
d <- data.frame(x=rep(1:40, 7), y=rep(1:7, each=40),
z=c(sapply(1:7, function(x) runif(40, 10*x, 10*x+20))))
# define the panel function
f <- function(x, y, z, groups, subscripts, ...) {
colorz <- c('#8dd3c7', '#ffffb3', '#bebada', '#fb8072', '#80b1d3',
'#fdb462', '#b3de69')
sapply(sort(unique(groups), decreasing=TRUE), function(i) {
zz <- z[subscripts][groups==i]
yy <- y[subscripts][groups==i]
xx <- x[subscripts][groups==i]
panel.3dpolygon(c(xx, rev(xx)), c(yy, yy),
c(zz, rep(-0.5, length(zz))),
col=colorz[i], ...)
})
}
# plot
cloud(z~x+y, d, groups=y, panel.3d.cloud=f, scales=list(arrows=FALSE))我确信我不需要在面板函数中循环groups，但我总是忘记了subscripts和groups按预期工作的正确咒语。
正如其他人在评论中提到的那样，这种类型的情节看起来很时髦，但可能会掩盖数据。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/24236953
复制相关文章
点击加载更多
腾讯云开发者
