使用 ggplot2 表示散点图中每个点的小饼图

我想创建一个散点图，其中每个点都是一个小饼图。例如考虑以下数据：

foo <- data.frame(X=runif(30), Y=runif(30),A=runif(30),B=runif(30),C=runif(30))

下面的代码将绘制一个散点图，代表X and Y每个点的值：

library(reshape2)
library(ggplot2)
foo.m <- melt(foo, id.vars=c("X","Y"))
ggplot(foo.m, aes(X,Y))+geom_point()

下面的代码将为每个点制作一个饼图：

p <- ggplot(foo.m, aes(variable,value,fill=variable)) + geom_bar(stat="identity")
p + coord_polar() + facet_wrap(~X+Y,,ncol=6) + theme_bw()

但我希望将它们合并：创建一个散点图，其中每个点都被饼图替换。这样我就能够在同一个图表中显示每条记录的所有 5 个值（X、Y、A、B、C）。

有办法做吗？

这是你可以用包做的事情gg子图。不幸的是，根据问题＃10here https://github.com/garrettgman/ggsubplot/issues/10，此软件包不适用于 R 3.1.1。如果我使用旧版本的 R (3.0.3)，我可以成功运行它。

使用长数据集，您可以在每个位置绘制条形图X, Y像这样的点：

library(ggplot2)
library(ggsubplot)

ggplot(foo.m) +
    geom_subplot2d(aes(x = X, y = Y, 
                    subplot = geom_bar(aes(variable, value, fill = variable), stat = "identity")),
                width = rel(.5), ref = NULL)

这给出了基本的想法，尽管还有许多其他选项（例如当绘图空间重叠时控制子图移动到的位置）。

这个答案 https://stackoverflow.com/a/20468836/2461552有更多关于状态的信息gg子图与较新的 R 版本。