如何增加R函数pheatmap的边距？

Question

我正在使用pheatmap（Documentation）绘制热图。我正以一种相当直接的方式绘制矩阵：

pheatmap(mat, annotation_col=df, labels_col=rld$Infection_Line, fontsize_row=5, fontsize_col=7) 

我的情节底部被切断，以至于我无法在底部看到列名。它看起来像这样： 我试图使用par（）和oma（）增加边距，以及cexRow = ...

我需要这样做才能在不减少绘图大小的情况下看到这些长列名。我只想在底部向下拉伸边距。有谁知道如何做到这一点？

提前致谢。