在Rstudio中使用gtsummary计算缺失值的百分比

我的问题和这里的有点类似

我有以下代码：

library(gtsummary)
basicvars <- names(isoq) %in% c("homeless_nonself", "test_result")
basictable <- isoq[basicvars]
    # summarize the data
table1 <- tbl_summary(basictable, missing = "always",                              
                      missing_text = "(Missing)",
                      percent = "cell",
                      type = all_dichotomous() ~"categorical"
) %>%
  bold_labels()

############Selecting the order of variables 
basiccompletetable <- basictable %>% select(test_result,homeless_nonself)
mutate(test_result = factor(test_result) %>% fct_explicit_na()) %>%
  
table3 <- tbl_summary(basiccompletetable, #missing = "always", missing_text = "(Missing)",
                      percent = "cell",
                      label = list( 
                        test_result ~ "COVID-19 Test Result",
                        homeless_nonself ~ "Homeless",
                        
                      ),
                      sort = list(
                        test_result ~ "frequency",
                        homeless_nonself ~ "frequency",
                        ),
                      type = list(all_character() ~ "categorical")
) %>%
  modify_spanning_header(starts_with("stat_") ~ "**All**") %>%
  modify_header(label = "**Variable**") %>%  # update the column header
  #add_n() %>%
  bold_labels() %>%
  as_gt() %>%
  gt::tab_source_note(gt::md("*This data is simulated*"))
table3

库（gtsummary）
基本资本收益率%
表3%
修改标题（以“stat”~“**All**”）%>%
修改标题（label=“**变量**”）%%>%#更新列标题
#添加\u n（）%>%
粗体标签（）%>%
as_gt（）%>%
gt:：tab_source_注释（gt:：md（“*此数据是模拟的*”）
表3

它吐出输出（不是完整的输出）

我试图显示缺失值的百分比。首先尝试测试结果。使用这行代码

将（test\u result=factor（test\u result）%%>%fct\u explicit\u na（））%%>%

更改为前面问题中建议的内容。但是，我看到的是与我的输出相同的表，变量test_结果的缺失值没有百分比

---

有什么建议说明为什么这不起作用吗？谢谢

你能重复这个问题吗？在您的问题中添加

dput（isoq）

。dput标签的作用是什么？如果您更新以使问题重现，我可以进一步研究此问题，这样我也可以在我的机器上运行。@DanielD.Sjoberg非常感谢您回答此问题！我从未使用过dput，因此可以删除它。我在回复之前的评论。@DanielD.Sjoberg听起来不错！我将尝试试用数据集，并将作出一个伟大的编辑！在创建示例时，请记住，最少的示例是最好的；包括复制问题所需的最少代码行。