R 更改热图中的颜色键高度。2

我需要打印一个垂直矩阵的热图，我希望我可以降低颜色键的高度。以下是我得到的：

我尝试使用<代码> KEY.PAL=列表（din′＝C（1，10））< /> >但

不起作用

lmat=rbind(c(2,3),c(1,4))
lwid=c(0.8,1.5)
lhei=c(1,12)
heatmap.2(gm,dendrogram='none', Rowv=FALSE, Colv=FALSE,trace='none',col=rainbow(600,end = 0.6,rev=TRUE),
          cexCol  = 1.5,cexRow = 1.3,lmat = lmat,lwid = lwid,lhei=lhei,key.title = NA,
          key.par = list('din'=c(1,10)))