Add patients at risk to adjusted survival curves in ggplot2 in r

Question

I used the following code that I got from this site in order to generate adjusted survival curves. I want to

• Add patients at risk below the plot
• Make x