E.dist <- dist(data, method="euclidean") # 歐式距離 M.dist <- dist(data ... + labs(title="Elbow Method for HC") + geom_vline(xintercept = 3, ...
確定! 回上一頁