summarytools dfSummary markdown 不打印可变标签

如何解决summarytools dfSummary markdown 不打印可变标签

我试图让我的变量标签打印在我的降价输出中的 dfSummary 表上。当我使用 R 控制台查看器（使用 print(method="viewer")）时，我可以获得标签列，但是当我编织降价时，标签列会下降。使用 mtcars 数据集查看我的问题示例

knitr::opts_chunk$set(results = "asis")
library(Hmisc)
library(summarytools)

st_options(plain.ascii = FALSE,style        = "rmarkdown",footnote     = NA,subtitle.emphasis = FALSE) 
label(mtcars$gear) ="Gears"
label(mtcars$cyl) ="Cylinders"
mt<-subset(mtcars,select=c(gear,cyl))
print(dfSummary(mt,labels.col=TRUE,display.labels=TRUE),method = "render",Variable.label=TRUE)

这是降价输出中的结果表

markdown 中的表格

但是这就是我想要的样子，带有标签列，这是我在 RConsole 中直接输入代码时得到的：

print(dfSummary(mt,method = "viewer",Variable.label=TRUE)

使用 R 查看器的表格

我想在 rmarkdown 表上获取“标签”列 - 任何人都可以帮助解决这个问题吗？

解决方法

使用子集时标签丢失。只需在子集化之后应用标签。

此外，由于 summarytools 有自己的 label() 函数，因此您无需为此加载 Hmisc。

这是我如何让它以最佳方式显示：

---
title: "Labels in dfSummary"
output: html_document
---

```{r setup,include=FALSE}
knitr::opts_chunk$set(results = "asis")
library(summarytools)
st_options(plain.ascii     = FALSE,dfSummary.style = "grid",dfSummary.graph.magnif = .75,footnote        = NA) 

```

```{r,echo=FALSE}
st_css()
```

```{r}
mt <- subset(mtcars,select=c(gear,cyl))
label(mt$gear) ="Gears"
label(mt$cyl) ="Cylinders"
print(dfSummary(mt),method = "render")
```

rendered results