2

我正在尝试使用该survminer软件包绘制生存曲线和相关风险表。我无法绘制风险表，所有其他元素都可以正常工作。RStudio 要么引发以下错误：

bl_make_text_box（token，drawing_context$gp，drawing_context$yoff_pt）中的错误：包'Rcpp'未提供函数'Rcpp_precious_remove'

或卡住并变得没有反应。

我已经安装并加载了Rcpp 包但没有成功，我还重新启动了 R 并清除了工作区。这发生在多个数据集上。一个例子是来自survminer备忘单的下面的代码，它给了我同样的问题。非常感谢任何建议！我怀疑这与我的环境有关，但我不知道是什么。

library("survival")
fit <- survfit(Surv(time,status)
               ~ sex, data = lung)
library("survminer")

ggsurvplot(fit, data = lung,
           conf.int = TRUE,
           pval = TRUE,
           fun = "pct",
           risk.table = TRUE,
           size = 1,
           linetype = "strata",
           palette = c("#E7B800",
                       "#2E9FDF"),
           legend = "bottom",
           legend.title = "Sex",
           legend.labs = c("Male",
                           "Female"))

按要求编辑

> sessionInfo()
R version 4.1.0 (2021-05-18)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 19043)

Matrix products: default

locale:
[1] LC_COLLATE=English_Australia.1252  LC_CTYPE=English_Australia.1252    LC_MONETARY=English_Australia.1252 LC_NUMERIC=C                      
[5] LC_TIME=English_Australia.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] survminer_0.4.9 ggpubr_0.4.0    ggplot2_3.3.3   survival_3.2-11

loaded via a namespace (and not attached):
 [1] Rcpp_1.0.6        lattice_0.20-44   tidyr_1.1.3       zoo_1.8-9         assertthat_0.2.1  digest_0.6.27     utf8_1.2.1        R6_2.5.0         
 [9] cellranger_1.1.0  backports_1.2.1   evaluate_0.14     pillar_1.6.1      rlang_0.4.11      curl_4.3.1        readxl_1.3.1      data.table_1.14.0
[17] car_3.0-11        Matrix_1.3-3      rmarkdown_2.8     labeling_0.4.2    splines_4.1.0     stringr_1.4.0     foreign_0.8-81    munsell_0.5.0    
[25] gridtext_0.1.4    tinytex_0.31      broom_0.7.8       compiler_4.1.0    xfun_0.23         pkgconfig_2.0.3   htmltools_0.5.1.1 ggtext_0.1.1     
[33] tidyselect_1.1.1  tibble_3.1.2      gridExtra_2.3     km.ci_0.5-2       rio_0.5.27        fansi_0.4.2       crayon_1.4.1      dplyr_1.0.6      
[41] withr_2.4.2       grid_4.1.0        xtable_1.8-4      gtable_0.3.0      lifecycle_1.0.0   DBI_1.1.1         magrittr_2.0.1    KMsurv_0.1-5     
[49] scales_1.1.1      zip_2.2.0         stringi_1.6.1     carData_3.0-4     farver_2.1.0      ggsignif_0.6.2    xml2_1.3.2        ellipsis_0.3.2   
[57] survMisc_0.5.5    generics_0.1.0    vctrs_0.3.8       openxlsx_4.2.4    tools_4.1.0       forcats_0.5.1     glue_1.4.2        markdown_1.1     
[65] purrr_0.3.4       hms_1.1.0         abind_1.4-5       yaml_2.2.1        colorspace_2.0-1  rstatix_0.7.0     knitr_1.33        haven_2.4.1
4

1 回答 1

1

有问题的函数bl_make_text_box()来自gridtext. 很可能您有一个最新版本或gridtext针对旧版本编译的Rccp. 尝试更新Rccp到版本 1.0.7 并希望它应该可以工作：

install.packages("Rcpp")

作为参考Rccp 邮件列表中描述的相同问题，可以总结为

TL;DR：更新你的图书馆。

于 2021-07-17T11:01:43.673 回答