plot_surv_animated {contsurvplot} | R Documentation |

## Create an Animated Plot of Survival Curves of CIFs as a Function of a Continuous Variable

### Description

Using a previously fit time-to-event model, this function plots a single covariate-specific survival curve or CIF. Using either the plotly or the gganimate package, an animated plot is created that is either simply showing how the curve evolves over values of the continuous covariate, or includes a slide to let the user interact with it.

### Usage

```
plot_surv_animated(time, status, variable, group=NULL,
data, model, cif=FALSE, conf_int=FALSE,
conf_level=0.95, n_boot=300,
na.action=options()$na.action,
horizon=NULL, fixed_t=NULL, max_t=Inf,
slider=TRUE, size=1, color="black",
linetype="solid", alpha=1,
xlab="Time", ylab="Survival Probability",
title=NULL, subtitle=NULL,
gg_theme=ggplot2::theme_bw(),
facet_args=list(), ci_alpha=0.4,
kaplan_meier=FALSE, km_size=0.5,
km_linetype="solid", km_alpha=1,
km_color="black", km_ci=FALSE,
km_ci_type="plain", km_ci_level=0.95,
km_ci_alpha=0.4, ...)
```

### Arguments

`time` |
A single character string specifying the time-to-event variable. Needs to be a valid column name of a numeric variable in |

`status` |
A single character string specifying the status variable, indicating if a person has experienced an event or not. Needs to be a valid column name of a numeric or logical variable in |

`variable` |
A single character string specifying the continuous variable of interest, for which the survival curves should be estimated. This variable has to be contained in the |

`group` |
An optional single character string specifying a factor variable in |

`data` |
A |

`model` |
A model describing the time-to-event process (such as an |

`cif` |
Whether to plot the cumulative incidence (CIF) instead of the survival probability. If multiple failure types are present, the survival probability cannot be estimated in an unbiased way. This function will always return CIF estimates in that case. |

`conf_int` |
Whether to plot point-wise bootstrap confidence intervals or not. Currently only supported when using |

`conf_level` |
A number specifying the confidence level of the bootstrap confidence intervals. Ignored if |

`n_boot` |
A single integer specifying how many bootstrap repetitions should be performed. Ignored if |

`na.action` |
How missing values should be handled. Can be one of: |

`horizon` |
A numeric vector containing a range of values of |

`fixed_t` |
A numeric vector containing points in time at which the survival probabilities should be calculated or |

`max_t` |
A number indicating the latest survival time which is to be plotted. |

`slider` |
Whether to include a slider that controls the value of the continuous covariate or not. If not, the plot simply cycles through the values in |

`size` |
A single number specifying the size of the drawn curve. |

`color` |
A single character string specifying the color of the curve. |

`linetype` |
A single character string specifying the linetype of the curve. |

`alpha` |
The transparency level of the plot. |

`xlab` |
A character string used as the x-axis label of the plot. |

`ylab` |
A character string used as the y-axis label of the plot. |

`title` |
A character string used as the title of the plot. When |

`subtitle` |
A character string used as the subtitle of the plot. |

`gg_theme` |
A ggplot2 theme which is applied to the plot. |

`facet_args` |
A named list of arguments that are passed to the |

`ci_alpha` |
A single number defining the transparency level of the confidence interval bands. |

`kaplan_meier` |
Whether to add a standard Kaplan-Meier estimator to the plot or not. If |

`km_size` |
The size of the Kaplan-Meier line. Ignored if |

`km_linetype` |
The linetype of the Kaplan-Meier line. Ignored if |

`km_alpha` |
The transparency level of the Kaplan-Meier line. Ignored if |

`km_color` |
The color of the Kaplan-Meier line. Ignored if |

`km_ci` |
Whether to draw a confidence interval around the Kaplan-Meier estimates. Ignored if |

`km_ci_type` |
Which type of confidence interval to calculate for the Kaplan-Meier estimates. Corresponds to the |

`km_ci_level` |
Which confidence level to use for the confidence interval of the Kaplan-Meier estimates. Ignored if |

`km_ci_alpha` |
The transparency level of the confidence interval of the Kaplan-Meier estimates. Ignored if |

`...` |
Further arguments passed to |

### Details

When the plot doesn't have to be on paper, it is also possible to use animation to represent how the survival curve or CIF changes when different values of a continuous covariate are used. There are two options included in this function. The first one is creating a plot with a slider that can be interactively manipulated by the user (argument `slider=TRUE`

). The second option creates a .gif file in which the continuous variable changes constantly over time (argument `slider=FALSE`

).

This type of plot is only useful when visualizing the effect on a computer. It is also important to keep in mind that these plots might look slightly different to users with different hardware and or software.

An additional interactive plot can be created using the `plot_surv_3Dsurface`

function with `interactive=TRUE`

.

### Value

Returns a `plotly`

object if `slider=TRUE`

and a `gganim`

object if `slider=FALSE`

.

### Author(s)

Robin Denz

### Examples

```
library(contsurvplot)
library(riskRegression)
library(survival)
library(splines)
library(ggplot2)
library(gganimate)
library(transformr)
library(plotly)
# using data from the survival package
data(nafld, package="survival")
# take a random sample to keep example fast
set.seed(42)
nafld1 <- nafld1[sample(nrow(nafld1), 150), ]
# fit cox-model with age
model <- coxph(Surv(futime, status) ~ age, data=nafld1, x=TRUE)
if (interactive()) {
# plot effect of age on survival for ages 50 to 80
plot_surv_animated(time="futime",
status="status",
variable="age",
data=nafld1,
model=model,
horizon=seq(50, 80, 1),
slider=TRUE)
# plot effect of age on survival using an interactive plot for ages 50 to 80
plot_surv_animated(time="futime",
status="status",
variable="age",
data=nafld1,
model=model,
horizon=seq(50, 80, 1),
slider=FALSE)
}
## showing non-linear effects
# fit cox-model with bmi modeled using B-Splines,
# adjusting for age and sex
model2 <- coxph(Surv(futime, status) ~ age + male + bs(bmi, df=3),
data=nafld1, x=TRUE)
if (interactive()) {
# plot effect of bmi on survival using slider
plot_surv_animated(time="futime",
status="status",
variable="bmi",
data=nafld1,
model=model2,
slider=TRUE)
# plot effect of bmi on survival using a .gif
plot_surv_animated(time="futime",
status="status",
variable="bmi",
data=nafld1,
model=model2,
slider=FALSE)
}
```

*contsurvplot*version 0.2.1 Index]