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")