如何在heatmap.2函数中设置顶部边距并调整X轴标签大小？

1. 修复顶部边距过窄问题 #

heatmap.2函数内部会重置绘图参数，你单独设置的par(mar)会被直接覆盖，所以不生效。要调整顶部空间，直接修改函数里的lhei参数：

• 你原代码中lhei = c(0.5,6)，第一个数值控制顶部颜色键+列树状图区域的高度，把它调大（比如改成c(1.5,6)）就能给顶部留出更多空间，避免内容被截断。
• 如果是你额外添加的右上角图例空间不够，就在绘制图例前用par(oma)增加外层顶部边距，具体代码见下方。

2. 调整X轴标签大小 #

直接在heatmap.2的参数里添加cexCol，设置你需要的字体大小（比如cexCol=1.2，数值越大字体越大），这个参数专门用于控制X轴（列）标签的大小。

修改后的完整代码 #

heatmap.2(scale.data1,Colv = T,
            dendrogram="column",scale="none",colsep=c(2),
            sepcolor="white",sepwidth=c(0.01),margins=c(50,30),
            col=heat.colors,trace="none",labRow = rownames(scale.data1),labCol = colnames(scale.data1), srtCol=80,
            key=T,keysize=0.80,density.info="none",symkey=FALSE,cexRow=2,cexCol=1.2, # 新增cexCol设置X轴标签大小
            ColSideColors=c("blue","green","orange","red"),lwid = c(0.2,1), lhei = c(1.5,6), # 调大顶部区域高度
            key.par = list(cex=0.4))
# 给顶部外层加边距，防止图例被截断
par(oma = c(0,0,2,0))
legend("topright",legend=c("Pt1","Pt2","P3","Pt4"),col=c("blue","green","orange","red"),pch=c(15,15),cex=4,pt.cex=5,bty = "n")
par(cex.main=0.5)

小提示 #

• margins=c(50,30)是控制热图区域的底部（X轴标签）和左侧（Y轴标签）边距，你当前设置的数值没问题。
• 如果顶部的列树状图还是拥挤，可以继续调大lhei的第一个数值，比如改成c(2,6)。

内容的提问来源于stack exchange，提问作者ASN