gtsummary 上标/脚注与 kableextra

Question

我正在尝试使用

gtsummary

显示

kableExtra

输出。问题是，当我输入

as_kable_extra

时，与脚注对应的上标消失了

示例：

---
title: "Kable Test"
output:
  pdf_document
---

```{r setup, include=TRUE}

iris  |> 
  gtsummary::tbl_summary(
    by = 'Species'
  ) |> 
  gtsummary::as_kable_extra(
    booktabs = TRUE,
    format = 'latex'
  )

```

添加

as_kable_extra

之前查看器中的 HTML 输出与列标题中的上标是正确的：

但是渲染时：

建议？ 谢谢你

Answer 1

我相信您可以使用一些正则表达式修改表格以恢复上标。从这里您应该能够呈现表格。

library(gtsummary)
library(kableExtra)
library(stringr)

t1 <- iris  |> 
  gtsummary::tbl_summary(
    by = 'Species'
  ) |> 
  gtsummary::as_kable_extra(
    booktabs = TRUE,
    format = 'latex'
  ) 

t1 <- knitr::asis_output(str_replace_all(t1, "N = 50", "N = 50$^{1}$"))