生存分析-平均总生存

Question

我正在尝试运行一个脚本来计算KM中位数总体生存期和无进展生存期，但始终收到无效的“ row.names”长度错误消息。

我的数据集如下：

Patient #   PFS     OS     Alive    POD
1           3       5       1        1
2           5       5       1        0
3           17      17      0        1

我的脚本如下：

survFitOS <- survfit(Surv(data_set$OS,data_set$Status) ~ 1, data = data_set)
surv_median(survFitOS)

我不断收到此错误消息：

  

row.names <-。data.frame（* tmp *，value = value）中的错误：     “ row.names”长度无效

Answer 1

我认为这可以满足您的要求，但是我不得不猜测您的函数来自哪个包，我不得不发明一个status列。

df <- data.frame(
    patient = c(1, 2,  3),
    os      = c(5, 5, 17),
    status  = c(1, 1,  0)
)

surv_ojb <- survival::Surv(time=df$os, event=df$status)

survfit_os <- survival::survfit(surv_ojb ~ 1)

result <- survminer::surv_median(survfit_os)