Czy można określić progi dla skal kolorów?

Spójrz na ten przykład:

xy <- expand.grid(x=1:20,y=1:20)
xyd <- data.frame(xy,z=runif(400),a=rowSums(xy)/40)
g <- ggplot(xyd, aes(x=x, y=y, fill=z, alpha=a)) + 
       geom_tile() + 
       scale_alpha(range=c(0,1), limits=c(0.5,1))
g

Chcę, aby wartości poniżej 0,5 otrzymywały wartość alfa 0, tak aby dolna lewa połowa była niewidoczna. Oczywiście mogłem przekształcić oryginalne dane, ale to zniszczyłoby legendę.