Add at risk table and 95% confidence intervals to adjusted survival curves using survminer package in r

Question

I want to add at-risk table and 95% confidence intervals to adjusted survival curves. Something like survival curves below (Link). I saw some relevant code here but it doesn