R How to adjust the width and height of each band in geom_tile so it is proportional to geom_text and y axis

Question

I\'m trying to use geom_tile to plot a heatmap.

Sample data in this google drive link:

https://drive.google.com/file/d/1wO0AEyyrVbhlw-riydWHkeTNARYa4xJW/view?u