如何创建功能区图？

Question

我想创建一个功能区图(实际上它是一组分类变量的多个线组图),但是以3d样式显示.这看起来像这样:

因此,我们可能希望将以下样本数据绘制为带状图:

set.seed(10)
fun <- function(i) data.frame(person=rep(LETTERS[i], 26), 
    letter=letters, count=sample(0:100, 26, T))
dat <- do.call(rbind, lapply(1:10, function(i) fun(i)))

library(ggplot2) #a traditional 2-d line plot of the data
ggplot(data=dat, aes(x=letter, y=count, group=person, color=person)) + 
    geom_line()

如何在R中实现这一目标？我知道可能有更好的方式来显示数据,但我目前的兴趣是制作带状图.

Answer 1

希望下面的例子可以帮助您指明正确的方向:

# data
mat <- matrix(dpois(rep(1:20, 10), lambda=rep(10:1, each=20)), ncol=10)

# 2d line plot
matplot(mat, type="l", col="black", lty=1)

# 3d ribbon plots
par(mar = c(0, 1, 0, 1))
par(mfrow=c(1,2))
persp(z=mat[,rep(seq(ncol(mat)), each=2)], r=5, theta=320, phi=35, shade=0.5,
      border=NULL, col=rep(c("#808080FE","#00000000"), each=nrow(mat)-1))
persp(z=mat[,rep(seq(ncol(mat)), each=2)], r=5, theta=320, phi=35, shade=0.5,
      border=NA, col=rep(c("#808080FE","#00000000"), each=nrow(mat)-1))
par(mfrow=c(1,1))
par(mar = c(5,4,4,2)+.1)

如您所见,这里的基本想法非常简单.我们组织我们的值以绘制成矩阵,复制矩阵中的列以使它们成对,然后使用绘制值persp(),确保在透明和不透明颜色之间交替.但是,有一些棘手的细节仍有待解决,特别是关于如何处理border参数.我会把这些细节留给你.

希望这可以帮助.