Question

我正在R和RMarkdown中进行生存分析以显示我的表。我已使用标签包中的var_label将标签分配给有问题的变量。当我将finalfit.coxph的结果传递到.rda文件并将其加载到我的RMarkdown文档中时，它将打印具有完整变量名的表。

我尝试使用print（）函数对其进行修改，该函数已与其他函数（例如，tableOne）一起使用，但无济于事。

这是我创建此表的方式。

  dependent <- "Surv(DX_LASTCONTACT_DEATH_MONTHS, RECODED_STATUS)"
  explanatory <-
    as.factor(c(
      "AGE_GROUP",
      "SEX",
      "FACILITY_TYPE_CD",
      "PRIMARY_SITE",
      "URBAN_RURAL",
      "CDCC_SHORT",
      "GRADE_RECODE",
      "SURGERY_MARGINS",
      "ANY_RADIATION",
      "ANY_CHEMO"
    ))
  coxTable <-
    finalfit.coxph(allMucoEpi, dependent = dependent, explanatory = explanatory, metrics = TRUE)

我尝试将其修改为使用以下内容

      coxTablePrint <-
  print(
    coxTable,
    exact = "stage",
    quote = FALSE,
    noSpaces = TRUE,
    printToggle = FALSE,
    row.names = FALSE,
    test = TRUE,
    showAllLevels = FALSE,
    missing = FALSE,
    varLabels = TRUE
  )

但是完整的变量名仍然存在。

这是RMarkdown文档中的代码块。

# kable(coxTable, caption = "Multivariate Cox Hazards Analysis",row.names = FALSE,
#     align = c("l", "l", "r", "r", "r"),
#     font_size = 8)

kable(coxTablePrint, "latex", caption = "Multivariate Cox Analysis", row.names = F, booktabs = T)%>%
kable_styling(latex_options = c("striped", "scale_down", "HOLD_position"), font_size = 7)

以下是我目前在最终PDF中看到的内容： https://imgur.com/Fk0RdqF

以下是我希望看到的示例： https://imgur.com/Fk0RdqF

Answer 1

尝试一下。未经测试。这里有很多例子： https://finalfit.org/articles/all_tables_examples.html

library(finalfit)
library(dplyr)
dependent <- "Surv(DX_LASTCONTACT_DEATH_MONTHS, RECODED_STATUS)"
# no as.factor here
explanatory <- c(
      "AGE_GROUP",
      "SEX",
      "FACILITY_TYPE_CD",
      "PRIMARY_SITE",
      "URBAN_RURAL",
      "CDCC_SHORT",
      "GRADE_RECODE",
      "SURGERY_MARGINS",
      "ANY_RADIATION",
      "ANY_CHEMO"
    )

allMucoEpi <- allMucoEpi %>%
  mutate(
    AGE_GROUP = factor(AGE_GROUP) %>%
      ff_label(“Age (years)”
    # all other var changes and labels here
    )


allMucoEpi %>%
    finalfit(dependent, explanatory, add_dependent_label = FALSE) %>% 
    dplyr::rename("Death (months)" = label) %>% 
    dplyr::rename(" " = levels) -> coxTable

  coxTable

在finalfit.coxph结果中无法显示变量标签

1 个答案: