overlap.r

set.seed(123)
dummy <- data.frame(x=runif(10), y=runif(10), f = runif(10))
ggplot(dummy, aes(x,y, fill=f)) + 
  geom_raster() +
  guides(fill=guide_colourbar(label.vjust = 0))+
  scale_fill_continuous(lim=c(0,1), expand=c(0,0)) +
  labs(fill="gggg") +
  theme_grey(24)