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