Как я могу привести значения осей в соответствие с таблицей рисков в ggsurvplot? - PullRequest
Новая
       17

Как я могу привести значения осей в соответствие с таблицей рисков в ggsurvplot?

0 голосов
/ 04 июля 2019

Я строю кривую КМ с ggsurvplot. Ось может быть установлена ​​с помощью break.time.by или break.x.by. Тем не менее, я хочу сделать конкретное значение по оси х.

Я пробую метод, упомянутый в Как я могу добавить конкретное значение по оси X в ggsurvplot / Survminer в R? , как всегда значение оси времени в таблице риска не математическое с кривой КМ ось х. 

require("survival")
library(survival)
library(survminer)
fit <- survfit(Surv(time, status) ~ sex, data = lung)
gp<-ggsurvplot(fit, pval = TRUE, conf.int = TRUE, 
           break.x.by=400,
           break.time.by=400,
           risk.table = TRUE, risk.table.y.text.col = TRUE)
gp$plot<-gp$plot+scale_x_continuous(breaks = sort(c(300,700,900,1000)))
gp

Я ожидаю, что временные точки в таблице риска согласуются со значениями в кривой Km, которые (300 700 900 000), но в результате (400 800)

...