How do I specify the layout of plots in ggcompetingrisks?

Question

Below is a sample code:

set.seed(2)
failure_time <- rexp(100)
status <- factor(sample(0:3, 100, replace=TRUE), 0:3,
                 c(\'no event\', \'death