r - R如何调整geom_tile中每个波段的宽度和高度，使其与geom_text和y轴成比例

Question

我正在尝试用来geom_tile绘制热图。

样本数据。代码如下：

#define color
library(wesanderson)
pal <- wes_palette("Zissou1", 50, type = "continuous")
                          
b<- ggplot(C1.TN)
d<- b + 
  geom_tile(aes(x=Combination, y=Drug_dose, fill=Avg.percent))+
  geom_text(aes(x=Combination, y=Drug_dose,label=Avg.percent), size=3)+
  scale_fill_gradientn(colors=pal)+
  theme(legend.text = element_text(size=10, face="bold", color = "black"))+
  theme(axis.text.x = element_text(size = 15,  face="bold", color = "black")) +
  theme(axis.text.y = element_text(size = 9,  face="bold", color = "black")) +
  theme(axis.title.x = element_text(size = 15,  face="bold", color = "black", vjust = 3))+
  theme(axis.title.y = element_text(size = 15,  face="bold", color = "black", hjust = 0.5))+
  theme(plot.title = element_text(size = 16))+
  theme(strip.text.y  = element_text(size = 10, face = "bold", color = "black"))+
  scale_x_discrete(position ="top") +
  xlab("Combination added")+
  ylab("Treatments in the screen")+
  ggtitle("Cluster 1 Enriched in TN response")


  print(d)

这是图形输出

问题是我希望每个波段的宽度和高度都更大，这样一切都清晰易读。

我试图在 geom_tile 中设置高度和宽度

 geom_tile(aes(x=Combination, y=Drug_dose, fill=Avg.percent, height=3))+

但问题是我的 y 轴处理标签将不对齐。如果我改变宽度，同样的问题，那么我的 x 轴列名完全不对齐。

那么如何更改每个图块的大小以使其更大，同时保持轴标签的对齐？最好我也可以调整 y 轴标签的间距。