r - パッケージ pheatmap によって生成されたヒートマップの軸ラベルの回転を変更します

Question

パッケージによって生成されるヒートマップの x 軸ラベルは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 = 270byrot = 90とhjust = 0byを単純に変更したところ、機能しました。hjust = 1

fixInNamespace("draw_colnames","pheatmap")

しかし問題はfixInNamespace()、パッケージ内の関数定義を永続的に変更することです。元の関数定義を変更するのではなく、必要な場合に備えて関数の定義を一時的に独自のものに置き換えた方がよいでしょうdraw_colnames()。

解決策はありますか？