Измените ggsurvplot (font.size) и тип доверительных интервалов

Question

Я пытаюсь изменить и лучше понять, как функция ggsurvplot() работает (пакет: survminer):

Прежде всего, немного кода:

suppressPackageStartupMessages(library(survival))
suppressPackageStartupMessages(library(survminer))
suppressPackageStartupMessages(library(tidyverse))

set.seed(2020)

exp <- sample_n(lung, size = 10, replace = F) %>%
  select(time, status)

exp <- sample_n(lung, size = 10, replace = F) %>%
  select(time, status)

exp$survival <- Surv(exp$time, exp$status == 2)

exp_fit <- survfit(survival ~ 1, data = exp, conf.type = "log-log")

ggsurvplot(exp_fit,
           data = exp,
           palette = "black",
           censor.shape = "I",
           censor.size = 5.5,
           xlab = "days",
           ylab = "survival probability",
           conf.int = T,
           surv.scale = "percent",
           legend.title = "censored data",
           legend.lab = "",
           legend ="bottom")

Используемый фрейм данных называется lung. Данные содержатся в пакетеsurvival.

В основном у меня два вопроса:

1. График печатает доверительные интервалы как надо, НО какого именно? Они такие же, как я указал вsurvfit() функция, которую я использовал для создания объекта exp_fit а если нет, то что нужно изменить, чтобы использовались такие же доверительные интервалы?

2. Размер шрифта легенды довольно маленький. Как я могу его увеличить? Я пытался работать сtheme(), но, к сожалению, это не сработало.

Буду признателен за ваши ответы. Заранее спасибо.

Answer 1

РЕ вопрос 1

Мне тоже было интересно, и я нашел это в Интернете:

"Функция ggsurvplotнаследует выбранный доверительный интервал от survfitобъект." https://www2.karlin.mff.cuni.cz/~vavraj/cda/exercise_04.html