r - summarytools dfSummary markdown 不打印变量标签

Question

我试图让我的变量标签打印在我的降价输出中的 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)

这是降价输出中的结果表

降价表

但这是我希望它看起来的样子，带有标签列，这是我将代码直接输入 RConsole 时得到的：

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

使用 R 查看器的表格

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

Answer 1

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

此外，由于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")
```