nozma · July 25, 2017 12:23
diff --git a/file0.r b/file0.r
 data("UScitiesD")
 hc <- hclust(UScitiesD)
 plot(hc)
diff --git a/file1.r b/file1.r
 plot(hc, labels = 1:10)
diff --git a/file2.r b/file2.r
 plot(as.dendrogram(hc), horiz = TRUE)
diff --git a/file3.r b/file3.r
 hc$labels <- 1:10
 plot(as.dendrogram(hc), horiz = TRUE)
diff --git a/file4.r b/file4.r
 de <- as.dendrogram(hc)
 dendextend::labels(de) <- (1:10)[hc$order]
 plot(de, horiz = TRUE)
diff --git a/file5.r b/file5.r
 w <- c("aaa", "aab", "aba", "bbb", "bab", "aaaa", "ccc", "abb", "ccccc")
 plot(hclust(stringdist::stringdistmatrix(w, method = "dl")))
 # dl: Damarau-Levenshtein距離
diff --git a/file6.r b/file6.r
 plot(hclust(stringdist::stringdistmatrix(w, method = "dl", useNames = "string")))
	de <- as.dendrogram(hc)
	dendextend::labels(de) <- (1:10)[hc$order]
	plot(de, horiz = TRUE)
	w <- c("aaa", "aab", "aba", "bbb", "bab", "aaaa", "ccc", "abb", "ccccc")
	plot(hclust(stringdist::stringdistmatrix(w, method = "dl")))
	# dl: Damarau-Levenshtein距離