如何在树形图中扩展叶节点的长度并添加节点标签

Question

我的任务是创建树形图，但叶节点显示钝边。如何扩展叶节点的长度，并添加节点标签？

请参阅下面的当前和预期图片。

数据：

df1 <- data.frame( z1 = c(rep('P1', 5), rep('P2', 5), rep('P3', 3), rep('P4', 4)),
                   z2 = c(letters[1:5], letters[6:10], letters[11:13], letters[14:17]),
                   stringsAsFactors = FALSE)

代码：

library('data.table')
library('ggplot2')
library('ggdendro')
library('grid')

setDT(df1)
ddata <- dcast( data = df1[, .(z1, z2)],
                formula = z2 ~ z1, 
                fill = 0, 
                fun.aggregate = length, 
                value.var = 'z2')
setDF( ddata)
row.names(ddata) <- ddata$z2
ddata$z2 <- NULL
ddata <- dendro_data( as.dendrogram( hclust( dist( ddata), method = "average")))
p <- ggplot(segment(ddata)) + 
  geom_segment(aes(x = x, y = y, xend = xend, yend = yend)) + 
  theme_dendro()
print(p)

当前情节：

预期情节：

Answer 1

有几种方法可以做到这一点，最简单的方法是使用int deleteIdents(char *a) { int i; for (i=0; i<=MAXCHARS; i++) { if (a[i] != '\n') /* copy into new array */ } } } 递归地在树形图的节点上应用函数。

如果插入新行以指定树形图对象：

dendrapply

然后创建一个简单的函数，将叶节点的高度减少给定量（d）：

dendro <-  as.dendrogram(hclust(dist(ddata), method = "average"))

该功能可以应用于所有节点，如下所示：

dropleaf <- function(x, d = 1){
  if(is.leaf(x)) attr(x, "height") <- attr(x, "height") - d
  return(x)
}

如果您打算绘制轴，您可以重新缩放绘图，以便使用以下方法将最低点重置为零：

dendro <- dendrapply(dendro, dropleaf, d = 0.2)

然后，您可以继续执行其余代码..

dendro <- phylogram::reposition(dendro, shift = "reset")

产生以下输出：