如何用斜体创建树形图

Question

所以我试图根据距离矩阵创建42种不同基因的树状图。该图是使用：

创建的

  

d6 = dist（t（cildata））

     

hc6 = hclust（d6）

     

情节（hc6）

然后我把那个情节保存为jpeg。

我需要保存一个版本的情节，基因名称用斜体字表示，但我不知道如何去做。我已经看到了类似的问题，如何将主要情节标题更改为斜体，而不是图中的标签。

非常感谢任何和所有帮助。

谢谢， Marcus G。

Answer 1

hc <- hclust(dist(USArrests), "ave")
italicLeafs <- c("Iowa", "New Hampshire") # select: italic leafs

den <- dendrapply(as.dendrogram(hc), FUN=function(n) {
  if(is.leaf(n)) 
    if (attr(n, "label") %in% italicLeafs) 
      attr(n, "label") <- as.expression(substitute(italic(leaf), list(leaf=attr(n, "label"))))
  n
})

plot(den)