如何将多个fviz_pca_biplot合并成一个图

Question

我尝试使用par(mfrow=c(2,2))将多个因子额外包(factoextra )图组合成一个图，有什么方法可以从4个地块中创建一个地块吗？

new.pca <- prcomp(scaled_new, center=TRUE, scale.=TRUE)

new.k <- new[,4]
fviz_pca_biplot(new.pca, geom = "point", habillage = new.k, repel = "TRUE")

new.k1 <- new[,5]
fviz_pca_biplot(new.pca, geom = "point", habillage = new.k1, repel = "TRUE")

new.k2 <- new[,6]
fviz_pca_biplot(new.pca, geom = "point", habillage = new.k2, repel = "TRUE")

new.k3 <- new[,7]
fviz_pca_biplot(new.pca, geom = "point", habillage = new.k3, repel = "TRUE")

Answer 1

fviz_pca_biplot生成一个ggplot对象，该对象是用网格图形系统而不是基rather系统绘制的。~par` `对网格图形没有影响。

如果您想要在一个页面上安排多个‘s图，那么很难击败patchwork包。只需存储每一个双情节，然后使用拼凑安排他们在一起。

显然，我们没有你的数据，所以我做了一些随机的例子来演示。

C <- chol(S <- toeplitz(.9 ^ (0:31))) # Cov.matrix and its root
set.seed(17)
X <- matrix(rnorm(32000), 1000, 32)
Z <- X %*% C
new.pca <- prcomp(Z, center=TRUE, scale.=TRUE)

p1 <- fviz_pca_biplot(new.pca, geom = "point", habillage = 'none', repel = TRUE)
p2 <- fviz_pca_biplot(new.pca, geom = "point", habillage = 'none', repel = TRUE)
p3 <- fviz_pca_biplot(new.pca, geom = "point", habillage = 'none', repel = TRUE)
p4 <- fviz_pca_biplot(new.pca, geom = "point", habillage = 'none', repel = TRUE)

library(patchwork)

(p1 + p2) / (p3 + p4)

​

​