テーブルをグラフィックス オブジェクトとして表示するgridExtraパッケージの機能を実装しようとしています。RチュートリアルのDisplaying tables as grid graphics/Aesthetic formatの例は問題なく動作しますが、以下のような独自のグラフィックスを作成すると、Error in cbind_2(gr, g, "max") : nrow(x) == nrow(y) is not TRUE.
何が問題で、どのように問題を解決しますか? 期待される動作は、関数grobによって画面に表示できるオブジェクトです。grid.arrange
df<-tibble(A=c("A", "B"), B=1:2)
tt<-ttheme_minimal(core=list(bg_params = list(fill = blues9[1:2])))
grid.newpage()
g<-tableGrob(df, tt)
grid.arrange(g)