我嘗試使用 par(mfrow=c(2,2)) 將多個 fviz_pca_biplot （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")
uj5u.com熱心網友回復：
fviz_pca_biplot生成一個 ggplot 物件，該物件是使用網格圖形系統而不是基本 R 圖形系統繪制的。~par` 對網格圖形沒有影響。
如果您想在單個頁面上安排多個 ggplot，則很難擊敗該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)
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/485860.html
下一篇：自動繪圖功能和分解