Excel快速绘制一维热图

R似乎没有包能画一维热图，pheatmap需要复制两列画太麻烦了；python绘图又没R方便。找来找去发现Excel+AI就能实现这功能。

首先输入一行（列）数值

选中后点击右上条件格式→色阶→其他规则，调整最大/小值颜色，也可以手动改为数值，然后填入具体数值，截图色条加上数值就是图例了，用最大最小的看下所选区域的数值就行

接下来调整单元格大小：在Excel中Alt + F11打开VBA编辑器，在插入中选择模块输入以下代码（A:Z是需要调整的区域）

Sub AdjustColumnWidth()
    Columns("A:Z").ColumnWidth = 2  ' 2是你想要设置的宽度
End Sub

删除格子内的数字：选中内容复制，打开AI后