如何在 R 中使用分类数据制作 3D 绘图？

Question

我一直在尝试根据分类数据创建 3D 条形图，但尚未找到方法。

解释起来很简单。考虑以下示例数据（真实的示例更复杂，但它会简化为这样），显示了按收入和年龄（均为分类数据）细分的某些情况的相对风险。

我想在 3D 条形图中显示它（类似于 http: //demos.devexpress.com/aspxperiencedemos/NavBar/Images/Charts/ManhattanBar.jpg）。我查看了 scatterplot3d 包，但它仅适用于散点图，不能很好地处理分类数据。我能够制作 3d 图表，但它显示点而不是 3d 条形。没有适合我需要的图表类型。我也尝试过 rgl 包，但也没有运气。我已经谷歌搜索了一个多小时了，还没有找到解决方案。我也有一本 ggplot2 - Elegant Graphics for Data Analysis 这本书，但 ggplot2 没有这种图表。

还有其他我可以使用的免费软件应用程序吗？ OpenOffice 3.2 也没有这个图表。

感谢您的任何提示。

Age,Income,Risk
young,high,1
young,medium,1.2
young,low,1.36
adult,high,1
adult,medium,1.12
adult,low,1.23
old,high,1
old,medium,1.03
old,low,1.11

Answer 1

我不确定如何在 R 中制作 3d 图表，但还有其他比 3d 条形图更好的方法来表示这些数据。 3D 图表使解释变得困难，因为条形的高度会因 3D 视角而倾斜。在该示例图表中，很难判断 2004 年的威斯康星州是否真的高于 2001 年的威斯康星州，或者这是否是视角的影响。如果它更高，那么会高多少？

由于 Age 和 Income 都有有意义的顺序，因此制作折线图不会很糟糕。 ggplot2 代码：

ggplot(data, aes(Age, Risk, color = Income))+
  geom_line(aes(group = Income))

或者，您可以制作热图。

ggplot(data, aes(Age, Income, fill = Risk)) +
  geom_tile()

Answer 2

就像其他人建议的那样，有更好的方法来呈现这一点，但是如果您想要与您拥有的类似的东西，这应该可以帮助您开始。

df <-  read.csv(textConnection("Age,Income,Risk
young,high,1
young,medium,1.2
young,low,1.36
adult,high,1
adult,medium,1.12
adult,low,1.23
old,high,1
old,medium,1.03
old,low,1.11
"))
df$Age <- ordered(df$Age, levels=c('young', 'adult', 'old'))
df$Income <- ordered(df$Income, levels=c('low', 'medium', 'high'))
library(rgl)
plot3d(Risk ~ Age|Income, type='h', lwd=10, col=rainbow(3))

这只会产生平面矩形。有关创建美观条形图的示例，请参阅demo(hist3d)。

Answer 3

您可以在此处找到一个起点，但您需要添加更多内容线条和一些矩形以获得像您发布的那样的图。