并排图解

Question

我试图在pdf文件的一页中并排绘制两个图，如下所示：

library(igraph)
library(ggplot2)
post <- topicmodels::posterior(ldaOut)
layout(matrix(1,1 byrow = TRUE))
cor_mat <- cor(t(post[["terms"]]))
cor_mat[ cor_mat < .05 ] <- 0
diag(cor_mat) <- 0
graph <- graph.adjacency(cor_mat, weighted=TRUE, mode="lower")
graph <- delete.edges(graph, E(graph)[ weight < 0.05])
E(graph)$edge.width <- E(graph)$weight* 15
V(graph)$label <- paste("Topic", V(graph))
V(graph)$size <- colSums(post[["topics"]]) * 2
set.seed(110)
pdf("all.pdf", width=400,height=350,res=72)
p1 <- plot.igraph(graph, edge.width = E(graph)$edge.width, 
    edge.color = "blue", vertex.color = "green", 
    vertex.frame.color = NA, vertex.label.color = "black")
clp <- cluster_label_prop(graph)
class(clp)
p2 <- plot(clp, graph, edge.width = E(graph)$edge.width, edge.color = "blue",vertex.color = "green")
pushViewport(viewport(layout = grid.layout(1, 2)))
print(p1, vp = viewport(layout.pos.row = 1, layout.pos.col = 1))
print(p2, vp = viewport(layout.pos.row = 1, layout.pos.col = 2))
dev.off()

但结果显示，这两幅图在两个分开的页面，而不是一页。关于如何解决这个问题，有什么建议吗？

Answer 1

这样这个问题就有了答案。

问题是，当您使用pdf语句切换到一个新的图形设备时，您将失去任何希望1×2显示图形的指示。一个解决方案是添加

par(mfrow=c(1,2)) 

就在你的pdf声明之后。如果将layout语句放在那里，它可能会工作。