Изменение меток оси вращения тепловой карты, созданной pheatmap пакета

Question

Х-оси маркировки тепловых карт, производимых упаковкой pheatmap на 270 градусов повернуты по умолчанию. Мне нужно повернуть их на 90 градусов.

Я проследил pheatmap() и посмотрите, есть ли внутренняя (невидимая) функция, которая производит метки:

draw_colnames <- function (coln, ...) 
{
    m = length(coln)
    x = (1:m)/m - 1/2/m
    grid.text(coln, x = x, y = unit(0.96, "npc"), vjust = 0.5, 
              hjust = 0, rot = 270, gp = gpar(...))
}

Я просто поменяла rot = 270 от rot = 90 а также hjust = 0 от hjust = 1 В приведенной выше функции используется следующая команда, и она работает:

fixInNamespace("draw_colnames","pheatmap")

Но проблема в том, что fixInNamespace() навсегда изменяет определение функции в пакете. Скорее, я был бы более рад не изменить первоначальное определение функции, но временно заменить определение draw_colnames() функционировать самостоятельно только в тех случаях, когда мне это нужно.

Есть ли решение?