[R] Gradient plots in ggplot2

[phii m@iii@g oii phiiipsmith@c@]

I am having trouble with a gradient fill application in ggplot2, caused 
by outlier values. In my reprex, most of the values are between 2 and 
-2, but there are two outliers, 10 and -15. The outliers stand out well, 
which is good, but all the other numbers show almost no colour 
variation. I would like to continue with bold colours for the outliers, 
while having a more variable gradient, perhaps but not necessarily in a 
different colour, for the values between 2 nd -2. Any ideas on how this 
can be done?


library(ggplot2)
a <- c(rep(1,6),rep(2,6),rep(3,6),rep(4,6))
b <- c(0.1, 0.5,-0.3, 1.2,-0.4,-1.2,
        0.7, 0.8,-1.2,-0.5,10.0, 0.3,
        0.2,-0.4,-15.,-0.4,-0.9,  NA,
        0.1, 1.3,-1.4, 0.5,-0.5, 0.1)
c <- c(rep(c("a","b","c","d","e","f"),4))
df <- data.frame(a,b)
ggplot(df,aes(x=a,y=c,fill=b))+
   geom_tile()+
   geom_text(label=paste0(round(b,1),"%"),
     size=10,colour="gold")+
   scale_fill_gradient(low="red",high="blue",na.value="grey50")