---
output:
html_document:
code_folding: hide
---
```{r block2, warning=FALSE, message=FALSE, fig.width=fig.1.width, fig.height=fig.1.height, dev='svg'}
library(survival)
library(survminer)
inputdata <- INPUTDATAFRAME
fit<- survfit(survfit.formula, data = inputdata, type="survfit.type")
p <- ggsurvplot(fit, data = inputdata,
surv.median.line = "hv", # Add medians survival
pval = TRUE, # Add p-value and tervals
conf.int = TRUE, # Add the 95% confidence band
risk.table = TRUE, # Add risk table
tables.height = 0.2,
tables.theme = theme_cleantable(),
palette = "jco",
ggtheme = theme_bw()
)
p <- p + guides(color = guide_legend(override.aes = list(alpha = 1, size = 1)))
print(p)