在R中的ggplot geom_bar圖表的底部添加統計信息表

Question

我目前正在嘗試創建一個圖表，在圖表的頂部7/8處具有系數的條形圖，在底部1/8處具有統計信息的表。 創建圖后，我將其保存到pdf文件中，該文件一直與ggsave（）一起使用，並希望保留該功能。 該程序最初是為條形圖構建的，我將添加統計信息表。

我對如何實現這一目標不知所措，或者我什至沒有想到正確的方法。

最初，我嘗試：

  tablestats <- grid.table(stats, rows = NULL)
  grid.arrange(plt, tablestats, nrow = 2)

但是我不能在上面的函數中有一個不可思議的東西。

然后我嘗試了：

  layout(matrix(c(1, 1, 1, 1, 1, 1, 2, 2, 2), 3, 3, byrow = TRUE))
  plt <- plt + tablestats
  print(plt)

但是，這只是繪制圖表。

我也嘗試了par（mfrow（））方法，但在繪圖時它似乎忽略了表格。

是否有人對如何構建類似或類似的東西有任何建議？

Answer 1

我認為這里的問題是您必須使用tableGrob()來定義tablestats而不是grid.table() 。

要使用grid.arrange組合不同的表/圖，它們必須是格羅布（網格GRaphcal對象）。 因此您不能將結果從grid.table傳遞到grid.arrange，因為它不是grob（它實際上是直接繪制tableGrob）。 為此，您需要傳遞tableGrob。

之后，您可以像以前一樣使用grid.arrange() 。