ggplot2 geom_raster x轴标签重叠

问题遇到的现象和发生背景

x轴坐标一直重叠，图已经拉到最长了

问题相关代码，请勿粘贴截图

g <- ggplot(data_double, aes(x=Site,y=To,fill=delta_delta_G))
g <- g + geom_raster()
g <- g + theme(axis.text.x = element_text(angle = 90, hjust = 1))
g <- g + scale_fill_gradient2(low="blue", high="red", mid="white", midpoint=0)
g

运行结果及报错内容

我的解答思路和尝试过的方法

把图拉到最长仍然重叠

我想要达到的结果

x轴的每个数字能清晰地显示