ggplot2パッケージのplotを使用して作成されたヒストグラムがあります。
gplotsパッケージのtextplotを使用して作成されたテーブル
できれば同じpdfまたはpngで表示したいと思います。
私は運がなくてgrid.arrangeを試しました。他に何か提案はありますか？各テーブルの長さはわずか5行なので、qplotの余白にある「凡例」またはテキストボックスとしてプロットに挿入することも検討していました。これを美しく見せるためのアドバイスはありますか？あなたのアイデアをありがとう。
結局、私は行きましたが、残念ながら私の配色は悪く見えます...私はこの問題を新しい質問として投稿しました。
これを試して、
library(ggplot2)
library(gridExtra)
g = tableGrob(iris[1:2, 1:2])
p = qplot(1:10, 1:10, geom = "blank") +
annotation_custom(g) # as inset
grid.arrange(p, g, ncol=1) # stacked
ggsave("plot-table.pdf", arrangeGrob(p, g, ncol=1))
これは gridExtra ライブラリの例です
my_hist<-ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar()
my_table<- tableGrob(head(diamonds)[,1:3],gpar.coretext = gpar(fontsize=8),gpar.coltext=gpar(fontsize=8), gpar.rowtext=gpar(fontsize=8))
pdf("myplot.pdf")
grid.arrange(my_hist,my_table, ncol=2)
dev.off()
表のフォントサイズと pdf のサイズを変更できます: pdf("myplot.pdf",width=10, height = 6)
別の配置を好む場合は、空白のパネルも必要になる場合があります:
blankPanel<- grid.rect(gp=gpar(col="white"))
