ggplot legend does not show the legend. I have tried multiple solution

Question

Hi Can anyone suggest how to add legend to the below plot

the legend should be

0 = low 
9 = high 

and should be called "Risk Level"

I have tried different methods but no matter what i did no legend was displayed

below is my code and plot

• Link to the code
• Link to the plot