求热图中ow-high渐进条是用什么函数画的，若能提供画此图的R语言代码，不胜感谢，谢谢