r - 一种将 "survfit"对象的某些元素提取到数据框中的简洁方法

Question

我从 survival 库加载一个数据集，并生成一个 survfit 对象:

library(survival)
data(lung)
lung$SurvObj <- with(lung, Surv(time, status == 2))
fit <- survfit(SurvObj ~ 1, data = lung, conf.type = "log-log")

这个对象是一个列表:

> str(fit)
List of 13
 $ n        : int 228
 $ time     : int [1:186] 5 11 12 13 15 26 30 31 53 54 ...
 $ n.risk   : num [1:186] 228 227 224 223 221 220 219 218 217 215 ...
 $ n.event  : num [1:186] 1 3 1 2 1 1 1 1 2 1 ...
 ...

现在我指定一些我想变成数据框的成员(长度相同):

members <- c("time", "n.risk", "n.event") 

我正在寻找一种简洁的方法来制作一个以三个列表成员为列的数据框，列名为 time、n.risk、n.event (not fit$time, fit$n.risk, fit$n.event)

因此生成的数据框应如下所示:

           time     n.risk       n.event
  [1,]        5        228             1
  [2,]       11        227             3
  [3,]       12        224             1
  ...

Answer 1

没关系

data.frame(unclass(fit)[members])

另一种(更规范的)方式是

with(fit, data.frame(time, n.risk, n.event))