13

我想创建一个带状图（实际上它是多组分类变量的线图），但以 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 中实现？我知道可能有更好的方法来显示数据，但我目前的兴趣是制作带状图。

4

1 回答 1

18

希望下面的示例将帮助您指出正确的方向：

# 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()，确保在透明和不透明颜色之间交替。然而，还有一些棘手的细节有待解决，特别是关于如何处理边框参数。我会把这些细节留给你。

希望这可以帮助。

于 2012-10-07T12:43:01.663 回答