Try something like :
j <- ggsurvplot(
  fit,                     
  data = p, 
  #fun="cumhaz",
  risk.table = "abs_pct", #risk.table.col="strata",
  pval = TRUE,      
  pval.coord = c(0, 0.25),
  conf.int = F,         
  legend.labs=c("WHO-I", "WHO-II", "WHO-III"),
  cumevents.title = "Cumulative number of deaths",
  size=c(0.7,0.7,0.7,0.7),                    
  xlim = c(0,35),
  alpha=c(0.8),
  break.x.by = 5,    
  xlab="Time in months",
  ylab="Probability of overall survival",
  ggtheme = theme,             
  risk.table.y.text.col = T,
  risk.table.y.text = TRUE, 
  surv.median.line = "v",
  ylim=c(0,1),
  cumevents=TRUE,
  palette="jco",
  tables.theme = theme,
  surv.scale="percent")