Legend position on ggplot heatmap

Question

I\'m trying to set the legend on the heatmap. When I make the following code the legend is set vertically:

df <- expand.grid(X1 = 1:10, X2 = 1:10)
df$value <