带有图例的ggplot2图形由grid.arrange（）引起的

Question

这是我的数据集：

> # my data --- copy and type  dd.RR <- read.table(file="clipboard")  to get it
> dd.RR 
        variance         vars
1 Op:Date:Sample 2.334140e-10
2    Date:Sample 0.000000e+00
3      Op:Sample 1.578744e-10
4        Op:Date 7.087561e-10
5         Sample 3.710173e-02
6             Op 5.429357e-01
7           Date 0.000000e+00
8         repeat 7.640778e-01

我绘制了一张漂亮的饼图：

gg <- ggplot(dd.RR, 
        aes(x = factor(""), fill = variance, weight=vars)) + 
        geom_bar(width = 1) + coord_polar(theta = "y") +
        labs(title="Reproductibilité et répétabilité") +
        scale_x_discrete("", breaks=NULL) + scale_y_continuous("", labels=NULL) 
gg

但是当使用grid.arrange()包中的gridExtra时会发生一些不好的事情：

grid.arrange(gg,gg,ncol=2)

如果有这样的传说，请如何并排绘制两个ggplot2图形？ （如果可能，请grid.arrange()）

Answer 1

由于@baptiste没有将其评论转换成答案，我这样做：

使用更大的设备窗口（饼图具有固定的宽高比以保持圆形;当你并排放置时，它们变得非常小，但是传说和标题保持了它们的大小并且相互重叠）。例如，使用dev.new(width=10)。