Adding 95% confidence intervals to the generated Kaplan Meier curves for competing risk (using ggplot2)

Question

I used the code below for competing risk obtained from this site (link). This is my dataframe.

I want to

1. Add 95% confidence interval to the