Как создать дендрограмму с курсивом

Question

Итак, я пытаюсь создать дендрограмму из 42 разных генов на основе матрицы расстояния. Эта цифра была создана с:

d6 = расстояние (т (cildata))

HC6 = hclust (d6)

участок (HC6)

Я тогда просто спас, что сюжет как jpeg.

Мне нужно сохранить версию сюжета с выделенными названиями генов, и я не уверен, как это сделать. Я видел похожие вопросы, связанные с тем, как изменить названия основного сюжета на курсив, а не на ярлыки внутри сюжета.

Любая помощь очень ценится.

Спасибо, Маркус Г.

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)