R编程：在apply（）函数和kmeans（）函数中获取错误

我用R做了一个市场篮子分析，我用肘部法计算WSS，然后用kmeans函数。 我使用了一个标准化数据帧pc1，然后我们计算了PCA，然后在代码中我们有以下命令：-

pc1 <- princomp(na.omit(pc1))
plot(pc1)
loadings(pc1)
pc.df <- data.frame(pc1$x[,1:3])
names(pc.df)
wss <- (nrow(pc.df)-1)*sum(apply(pc.df,2,var))
for (i in 2:15) wss[i] <- sum(kmeans(pc.df, nstart = 100 , iter.max = 1000,
                                 centers=i)$withinss)

第二个错误显然是由于簇的数量大于不同的点，但它是否与前一个错误有关

我们将非常感谢您的任何帮助。此外，如果有人知道一个好的网站或pdf链接，以了解PCA和肘部测试的市场篮子条款的例子也将是有益的

我明白了。 变量列表中有一个名为var的变量，同时我们在apply中使用var函数。这是导致以下错误的原因：-

Error in get(as.character(FUN), mode = "function", envir = envir) :object '2013-12-09' of mode 'function' was not found

---

变量var的赋值为2013-12-09

applypc.df，2，var参数var似乎不正确。预计它将成为一项功能。你想用apply做什么？请提供示例数据。如果不知道pc1是什么样子，我们就无法真正知道计算方差的障碍。@MKR var是计算连续变量方差的函数measure@Cath对的我在var中查看了v的情况，似乎我们有一个命令，比如pc.df

Error in get(as.character(FUN), mode = "function", envir = envir) :object '2013-12-09' of mode 'function' was not found