numerical_data <- data[, -1] # 排除第一列,选择从第二列到末尾的所有列
#通常在进行聚类分析之前,需要对数据进行标准化,以消除不同量纲和量级带来的影响:
scaled_data <- scale(numerical_data)
#计算距离矩阵,使用欧氏距离计算样本之间的距离:
distances <- dist(scaled_data, method = "euclidean")
#使用hclust函数进行UPGMA聚类:
upgma_hc <- hclust(distances, method = "average")
#使用plot函数绘制聚类树状图:
plot(upgma_hc, hang = -1, labels = data$S, cex = 0.7, horiz=TRUE, ylab = "相似系数")
上面便是全部的代码,却总是提示
Warning messages: 1: In graphics:::plotHclust(n1, merge, height, order(x$order), hang, : "horiz"不是图形参数 2: In graphics:::plotHclust(n1, merge, height, order(x$order), hang, : "horiz"不是图形参数 3: In axis(2, at = pretty(range(height)), ...) : "horiz"不是图形参数 4: In title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...) : "horiz"不是图形参数
真心想不明白,有大佬知道问题出在哪吗?(已经尝试将所有包都更新过了,还是不行)