您可以使用treeresponse 方法获得曲线。可能有更好的方法,但这是我想出的。
以下是使用?ctree:
的生存树示例的图示
require(party)
data("GBSG2", package = "ipred")
GBSG2ct <- ctree(Surv(time, cens) ~ .,data = GBSG2)
plot(GBSG2ct)
我们使用treeresponse进行训练数据来抓住(安装)的响应。这是一个列表,其中包含训练数据中每个观察值的组成部分。
out <- treeresponse(GBSG2ct)
每个组件out @ 987654327是一个生存对象,"survfit"
> class(out[[1]])
[1] "survfit"
对于此树,我们有四个终端节点,因此只有四个独特的生存对象。您可以使用where 方法查看观测值位于哪些节点
wnode <- where(GBSG2ct)
我们可以使用此索引是独特的生存对象。例如,对于节点 3(树图中最左边的节点)
> n3 <- which(wnode == 3 & !duplicated(wnode))
> n3
[1] 1
> out[[n3]]
> out[[n3]]
records n.max n.start events median 0.95LCL 0.95UCL
686 248 248 88 2093 1814 NA
可以使用plot方法绘制节点3的生存曲线:
plot(out[[n3]], conf.int = FALSE, mark.time = FALSE)
除了轴上的范围之外,除了绘制的树上的节点3面板中使用的图。
对于此示例,您可以对节点 4、6 和 7 重复,但您需要根据数据和拟合树来定制使用哪些节点。