ここに私のデータセットがあります:
> # 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)
このような凡例がある場合、2 つの ggplot2 グラフィックを並べてプロットする方法を教えてください。(grid.arrange()
できれば一緒に)