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个小块， 我想查看每个块里边有哪些专利，查看具体的分层数据需要怎么修改
谢谢高手指点