Как объединить несколько графиков fviz_dist в один график

Question

Я безуспешно пытался объединить несколько fviz_dist (factoextra пакет) графиков в один график, используя par(mfrow=c(2,2)) и назвав их и добавив их, например, PlotA + PlotB (как я видел в гистограммах).

с нетерпением жду ваших советов и подсказок

#Generates 4 individual plots
par(mfrow=c(2,2))
fviz_dist(dist.euclraw)
fviz_dist(dist.euclscaled)
fviz_dist(dist.corraw)
fviz_dist(dist.corscaled)

Answer 1

Есть 2 способа сделать это как

library(factoextra)
library(ggpubr)
library(gridExtra)

data(USArrests)
dist.pearson <- get_dist(USArrests, stand = TRUE, method = "pearson")
dist.euclraw <- get_dist(USArrests, stand = TRUE, method = "euclidean")

p1 <- fviz_dist(dist.pearson)
p2 <- fviz_dist(dist.euclraw)
ggpubr::ggarrange(p1,p2)
gridExtra::grid.arrange(p1,p2)