kmeans聚类2D矩阵

Question

我正在尝试聚类由值为＆lt; 0; 1＆gt;的28x28矩阵表示的图像。这些矩阵最初存储在列表中。但是kmeans不接受输入列表，因此我尝试制作length(mylist)x28x28大小的3D数组。 kmeans现在在每个矩阵中聚集单个值，而不是矩阵本身。我如何完成矩阵聚类？

小代码示例：

m1 <- array(rep(runif(64, 0.0, 1.0),64),dim=c(8,8))
m2 <- array(rep(runif(64, 0.0, 1.0),64),dim=c(8,8))
m3 <- array(rep(runif(64, 0.0, 1.0),64),dim=c(8,8))
list1 <- list(m1,m2,m3)

# This doesn't work
clusters <- kmeans(list1, 2)

# Transform to 3D array
library(abind)
array1 <- do.call(abind, c(list1, along = 0))

# This doesn't cluster matrices, but their elements
clusters <- kmeans(array1, 2)