cmprsk: Reduce scale of y axis

This commit is contained in:
Jens Sauer 2021-01-22 12:32:18 +01:00
parent c012fc65fe
commit fb069c4d31

View File

@ -79,7 +79,7 @@ sma_plot_secmal_haz_dx <- function() {
sma_plot_secmal_cmprsk <- function() { sma_plot_secmal_cmprsk <- function() {
cpr <- cuminc(secmal$time_at_risk / 365.25, secmal$time_at_risk_status) cpr <- cuminc(secmal$time_at_risk / 365.25, secmal$time_at_risk_status)
ggcompetingrisks(cpr[1], conf.int = TRUE, multiple_panels = FALSE, ggcompetingrisks(cpr[1], conf.int = TRUE, multiple_panels = FALSE,
legend = "none", title = "", ylim = c(0:1), legend = "none", title = "", ylim = c(0,0.5),
xlab = "Years", ggtheme = theme_bw(), palette = "lancet") xlab = "Years", ggtheme = theme_bw(), palette = "lancet")
} }