如何在不更改Plotly中的热图单元大小的情况下调整画布区域？

Question

我有基于图的动态生成的矩阵数据热图

data <- as.matrix(dat)
heatmap<-plot_ly(x=colnames(data), y=rownames(data), z = data, type = "heatmap", colors=c("blue","black", "yellow"), zmin=3, zmax=15,  width=1300, height=800) %>% layout(title="Genes") %>%
layout(xaxis=list(tickfont = list(size = 18), tickangle =40), yaxis=list(tickfont = list(size = 15), autorange='reversed'))

这里的问题是，除了将绘图大小（高度）设置为较高的数字以完全覆盖X轴标签外，我别无选择。这是因为某些X轴标签长度需要更多字符。同时，给定的热图单元大小对于单个数据点而言太大。

我尝试了几个参数，但仍然无法解决问题。