问题描述
我正在努力获取R中的层次结构集群。请不要降级这篇文章，因为我已经尝试过此链接How to use 'hclust' as function call in R
中的内容但是我还没有成功。数据示例在这里：
structure(list(respondents_id = c("1","2","3","4","5","6","7","8","9","10"),comorbidities = c("hypertension","asthma","diabetes_type_two","hypertension","lung_condition","obesity","obesity"),chills = structure(c(2L,1L,1L),.Label = c("No","Yes"),class = "factor"),cough = structure(c(1L,2L,1L
),diarrhoea = structure(c(2L,"Yes"
),fatigue = structure(c(2L,headache = structure(c(1L,2L),loss_smell_taste = structure(c(1L,muscle_ache = structure(c(2L,nasal_congestion = structure(c(1L,nausea_vomiting = structure(c(1L,shortness_breath = structure(c(1L,sore_throat = structure(c(1L,sputum = structure(c(1L,temperature = structure(c(1L,loss_appetite = structure(c(1L,chest_pain = structure(c(1L,itchy_eyes = structure(c(1L,joint_pain = structure(c(1L,class = "factor")),row.names = c(NA,10L),class = "data.frame")
代码如下：
gower_distance <- cluster::daisy(data_test[,3:19],metric = "gower")
class(gower_distance)
divisive_clustering <- diana(as.matrix(gower_distance),diss = TRUE,keep.diss = TRUE)
hc_complete <- hclust(divisive_clustering,method = "complete")
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）