R 中的错误:余弦相似性和 MDS

Question

我从包'lsa'中计算出余弦与余弦((的相似性。这里有三个测试向量：

d <- data.frame(c(-1,1,0,-1,1,1,-1,1,0),c(-1,1,1,1,-1,1,-1,0,1),c(0,0,1,0,-1,-1,0,1,-1))
colnames(d) <- c("vector1","vector2","vector3")
d_dist <- cosine(as.matrix(d))

现在，我想使用 cmdscale 进行降维，然后将其绘制为散点图：

fit <- cmdscale(d_dist,k=2)
x <- fit[,2]
y <- fit[,1]
plot(x,y)

但我总是在 cmdscale (d_dist， k = 2( 中收到警告：前 2 个特征值中只有 0 个是>0 [翻译自德语] 和一个空的拟合对象。

我做错了什么？非常感谢您的帮助！

Answer 1

输入应为距离矩阵。 例如：

d_dist <- 1-d_dist
fit <- cmdscale(d_dist,k=2)
x <- fit[,2]
y <- fit[,1]
plot(x,y)