在树状图可视化中删除高度比例
Delete Scale for Height in dendrogram visualisation
我可以使用
创建树状图
x<-1:100
dim(x)<-c(10,10)
set.seed(1)
groups<-c("red","red", "red", "red", "blue", "blue", "blue","blue", "red", "blue")
x.clust<-as.dendrogram(hclust(dist(x)))
x.clust.dend <- x.clust
labels_colors(x.clust.dend) <- groups
x.clust.dend <- assign_values_to_leaves_edgePar(x.clust.dend, value = groups, edgePar = "col") # add the colors.
x.clust.dend <- assign_values_to_leaves_edgePar(x.clust.dend, value = 3, edgePar = "lwd") # make the lines thick
plot(x.clust.dend)
但是我想把左边高度信息的比例删除如下图。
我的猜测是它应该是非常微不足道的,但我无法找到一种方法来做到这一点。我不想要的一种解决方案是使用 ggplot2
如下:
ggplot(as.ggdend(dend2))
这是因为我将放宽一些格式,例如 color_bars()
你可以直接设置yaxt = "n"
plot(x.clust.dend, yaxt = "n")
您可以使用
添加另一个轴
axis(side = 2, labels = FALSE)
图形参数“axes = FALSE”可用于删除 plot.dendogram 命令的距离度量:
plot(x.clust.dend, axes=F)
这将生成以下没有距离轴的树状图:
我可以使用
创建树状图x<-1:100
dim(x)<-c(10,10)
set.seed(1)
groups<-c("red","red", "red", "red", "blue", "blue", "blue","blue", "red", "blue")
x.clust<-as.dendrogram(hclust(dist(x)))
x.clust.dend <- x.clust
labels_colors(x.clust.dend) <- groups
x.clust.dend <- assign_values_to_leaves_edgePar(x.clust.dend, value = groups, edgePar = "col") # add the colors.
x.clust.dend <- assign_values_to_leaves_edgePar(x.clust.dend, value = 3, edgePar = "lwd") # make the lines thick
plot(x.clust.dend)
但是我想把左边高度信息的比例删除如下图。 ggplot2
如下:
ggplot(as.ggdend(dend2))
这是因为我将放宽一些格式,例如 color_bars()
你可以直接设置yaxt = "n"
plot(x.clust.dend, yaxt = "n")
您可以使用
添加另一个轴axis(side = 2, labels = FALSE)
图形参数“axes = FALSE”可用于删除 plot.dendogram 命令的距离度量:
plot(x.clust.dend, axes=F)
这将生成以下没有距离轴的树状图: