Question

我想插入节点拟合模型的摘要，而不是在图的终端面板中插入系数

当处理软件包partykit的plot.modelparty（）函数时，我知道如何在终端面板中插入模型估计系数。知道我想用表格代替所提供的拟合模型。

plot(survregtree.cll.a1$hazard.obj, 
         terminal_panel = NULL, 
         FUN = model_summary, 
         gp=grid::gpar(fontsize = 6), 
         pointcex = .3) here

        model_summary <- function(x){
           smr <- lapply(summary(x), function(k) k["coefficients"])
           c(strwrap(capture.output(print(smr, digits = 3))))
           }

这是通过单独运行该函数获得的部分结果： model_summary（survregtree.cll.a1 $ hazard.obj）

              [1] "$`3`"                                                      
              [2] "$`3`$coefficients"                                         
              [3] "Estimate Std. Error  z value Pr(>|z|)"            
              [4] "timeInt1    -2.20      0.125 -17.6022 2.37e-69"            
              [5] "timeInt2    -3.74      0.289 -12.9678 1.86e-38"            
              [6] "timeInt3    -3.91      0.333 -11.7324 8.69e-32"            
              [7] "timeInt4    -4.80      0.577  -8.3089 9.66e-17"            
              [8] "timeInt5   -19.48    599.639  -0.0325 9.74e-01"            
              [9] "timeInt6   -19.48    686.973  -0.0284 9.77e-01"            
              [10] "timeInt7    -5.01      1.000  -5.0140 5.33e-07"            
              [11] "timeInt8    -4.57      1.000  -4.5695 4.89e-06"            
              [12] ""                                                          
              [13] ""

我想在运行功能plot.modelparty（）时获得此表插入终端节点中

感谢帮助。

在图形的终端节点中插入模型摘要

0 个答案: