Rè¯è¨å°å±æ¬¡èç±»ä¸çæ åæç°
说æ
å¨èç±»æ å¾ä¸å¯ä»¥è§æµå°èç±»çå±æ¬¡ï¼ä½æ¯ä»ç¶å¾ä¸å°ç»çä¿¡æ¯ï¼ä¸è¿æ们å¯ä»¥å®ä¹ä¸ä¸ªèç±»æ å¾ä¼æ¥æå¤å°ä¸ªç°ï¼å¹¶æ§å¶æ çé«åº¦ä»¥ä¾¿å°æ åæä¸åçç»ã
æä½
æ¥ä¸èçæ°æ®hc
å°æ°æ®åæåç»
fit = cutree(hc,4)
æ£æ¥æ°æ®çç°æ ç¾
fit
[1] 1 1 2 1 2 1 2 2 1 1 1 2 2 1 1 1 2 1 2 3 4 3 4 3 3 4 4 3 4 4 4 3 3 3 4 4 3 4 4 4 4 4 4 4 3 3 4 4 4 3 4 3 3 4 4 4 3 4 4 3
ç»è®¡æ¯ä¸ä¸ªç°ä¸ç对象æ°
table(fit)
fit
1 2 3 4
11 8 16 25
使ç¨çº¢è²ç©å½¢æ¡å¯è§åç©å½¢çç°
plot(hc,hang = -0.01,cex =0.7)
rect.hclust(hc,k=4,border = "red")
é¤äºä½¿ç¨çº¢è²ç©å½¢æ¥æ¡æ¥çå®ç°ï¼è¿å¯ä»¥ä½¿ç¨å®å¯¹åç¬æ个ç°è¿è¡æ è®°ï¼
plot(hc,hang = -0.01,cex =0.7)
rect.hclust(hc,k = 4,which = 2,border = "red")
æ è®°ç¹å®ç°
è¿å¯ä»¥è°ç¨dendextendå
ï¼ä½¿ç¨ä¸åçé¢è²æ¥ç»å¶çº¢è²ç©å½¢æ¡çå个ä¸åèç°ã
æ ¹æ®åæ¯æå¨çä¸åç°ï¼å¯¹å
¶æ¶è²
library(dendextend)#delete
dend %>% color_branches(k=4) %>% plot(horiz = TRUE,main = "Horizontal Dendrogram")
ä¸åç°ä¸åè²
å¨è¿äºç°å¨å´æ·»å 红è²ç©å½¢æ¡
dend %>% color_branches(k=4) %>% plot(horiz = TRUE,main = "Horizontal Dendrogram")
dend %>% rect.dendrogram(k=4,horiz = TRUE)
æåï¼å¨å¾ä¸æ·»å ä¸æ¡åå²çº¿æ¥å±ç¤ºå¯¹æ çæä½ç»ï¼
dend %>% color_branches(k=4) %>% plot(horiz = TRUE,main = "Horizontal Dendrogram")
dend %>% rect.dendrogram(k=4,horiz = TRUE)
abline(v = heights_per_k.dendrogram(dend)["4"] + .1,lwd = 2,lty = 2,col = "blue")
æ°´å¹³èç±»æ ä¸ç»å¶åå²çº¿
温馨提示:答案为网友推荐,仅供参考