如何将我的yticklabels更接近geom_tile？

Question

我一直试图从this重新创建一些热图，但我的y刻度与geom_tile的其余部分相距很远。

这是我的代码

library(tidyverse)
library(ggthemes)
library(viridis)



d <-c('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')
days <- factor(d, levels = d,ordered=TRUE)

L = rnorm(7*24,0,20)

df <- data.frame(days,L) %>%arrange(days)

df['Time'] = c(0:23)

gg <- ggplot(data  = df, aes(x = Time, y = days, fill = L))+
      geom_tile(color = 'white',size = 0.1)+
      scale_fill_viridis('')+
      coord_equal()+
      labs(x = NULL, y = NULL, title = 'Practice HeatMap')+
       theme_tufte(base_family="Helvetica")+
      theme(axis.ticks=element_blank())

print(gg)

和结果图

即使使用hjust也不会移动标签。我怎样才能看起来更整洁？