r - 1 つのパネルで DiagrammeR を他のプロットと組み合わせる方法は?

Question

ggplot2 などのマルチパネル プロットに DiagrammeR のダイアグラムを含めたいのですが、残念ながら、DiagrammeR はグラフィック デバイスに書き込みません。誰もそれを行う方法を知っていますか?

これは私の例で、2 つの ggplot2 グラフでは問題なく動作しますが、DiagrammeR と組み合わせるとうまくいきません。

library(ggplot2)
library(DiagrammeR)
library(grid)
library(gridExtra)

set.seed(1)
x <- 1:10
y <- x*rnorm(n=10, mean = 1, sd = 0.2)
data <- data.frame(x,y)
plot <- ggplot(data, aes(x=x,y=y)) + geom_point()
plot1 <- arrangeGrob(plot, top = textGrob("A", x = unit(0.0, "npc"), y =   
unit(1, "npc"), just=c("left","top"), gp=gpar(col="black", fontsize=14, 
fontfamily="Times")))
plot2 <- arrangeGrob(plot, top = textGrob("B", x = unit(0.0, "npc"), y =   
unit(1, "npc"), just=c("left","top"), gp=gpar(col="black", fontsize=14, 
fontfamily="Times")))
grid.arrange(plot1, plot2)

d <- grViz("

    digraph boxes_and_circles {

    # add node statements
    node [shape = box]
    A; B

    node [shape = box]
    C; D

    A->C; B->D

}

")

d
d <- arrangeGrob(d, top = textGrob("B", x = unit(0.0, "npc"), y = unit(1, 
"npc"), just=c("left","top"), gp=gpar(col="black", fontsize=14,
fontfamily="Times")))
grid.arrange(plot1, d)