hclust的具体数据

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

m <-readLines("C:/Users/jang/Desktop/totalp.txt")
query <- "环境 土壤 水质"
names(m) <- paste("专利", 1:length(m))
m <- c(m, query=query)
m <- Map(extractNoun, m)
m <- unique(m)
m.corp <- Corpus(VectorSource(m))
m.corp <- tm_map(m.corp, removePunctuation)
m.corp <- tm_map(m.corp, removeNumbers)
m.corp <- tm_map(m.corp,stemDocument)
konlp_tokenizer <- function(m){
  extractNoun(m)
}
tdmat <- TermDocumentMatrix(m.corp, control=list(tokenize=konlp_tokenizer, weighting = function(x) weightTfIdf(x, TRUE),
                                                    wordLengths=c(2,Inf)))

dmatmat <- as.matrix(tdmat)

docord <- t(dmatmat[,8820]) %*% dmatmat[,1:8819]
fit <-hclust(dist(t(dmatmat)), method = "ward")
plclust(fit)
rect.hclust(fit1, k = 60)

我把我收集的8819个专利，hclust分为60个块分为60个小块， 我想查看每个块里边有哪些专利，查看具体的分层数据需要怎么修改
谢谢高手指点

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：hclust CLU