使用 plot.kmeans 函数的平铺图

Question

我正在尝试使用包 "useful" 中的 plot.kmeans 函数创建一个平铺图。对于使用 par() 或 layout() 的基本绘图函数，或者在使用 facests 的 ggplot 中，这可以非常容易地完成。我想使用包 "useful" 中的 plot 或 plot.kmeans 函数来可视化具有不同簇数的 kmeans 的各种运行结果。我试过 par() 和 layout()，但我只得到一个图而不是多个图。考虑以下代码段：

results1 <- kmeans(x=dataset1,centers=5,nstart = 25)
results2 <- kmeans(x=dataset2,centers=5,nstart = 25)
par(mfrow=c(2,1))
plot.kmeans(results1,dataset1)
plot.kmeans(results2,dataset2)

我有两个数据集并分别对它们应用 kmeans。我想并排绘制两个数据集的结果。 plot.kmeans 是查看聚类结果的好函数。但不知何故，我觉得我们不能像在基本绘图设施中那样并排放置两个或多个地块。如果我使用基本绘图函数而不是 plot.kmeans，它将起作用。简而言之，这就是我的问题。谢谢。

Answer 1

包 "useful" 中的函数 plot.kmeans（不要与一般限定词“有用的包”混淆）returns ggplot2 对象。这些不适用于par()或layout()。

改为查看 "gridExtra" 包中的 grid.arrange：

results1 <- kmeans(x=dataset1,centers=5,nstart = 25)
results2 <- kmeans(x=dataset2,centers=5,nstart = 25)
library(gridExtra)
p1 <- plot.kmeans(results1,dataset1)
p2 <- plot.kmeans(results2,dataset2)
grid.arrange(p1, p2, ncol=2)

使用 plot.kmeans 函数的平铺图

Tiled Plot using plot.kmeans function

plot

r

ggplot2

k-means