kableExtra:动态add_header_above标签 [英] kableExtra: Dynamic add_header_above labeling

问题描述

我想用rmarkdown创建一个pdf文件. PDF应包含一个表格.该表应具有动态列标签.

I would like to create a pdf with rmarkdown. The PDF should contain a table. The table should have a dynamic column label.

该标签页应显示日历周.

The tabhead should display the calendar week.

但是，不显示日历周(例如KW29)，而是显示变量名称"kw0".

However, the calendar week (e.g., KW29) is not displayed but the variable name "kw0".

我的错误是什么?

library(knitr)
library(kableExtra)
library(lubridate)
options(knitr.table.format = "latex")
loadData <- function() {# load some data}

myData<- loadData ()

kw0 <- paste("KW", week(Sys.Date()) - 1, sep = "")
kw1 <- paste("KW", week(Sys.Date()), sep = "")
kw2 <- paste("KW", week(Sys.Date()) + 1, sep = "")
kw3 <- paste("KW", week(Sys.Date()) + 2, sep = "")


kable(myData, row.names = FALSE, booktabs = T) %>%
  kable_styling(
  full_width = TRUE,
  font_size = 14 
  )  %>% add_header_above(header = c(" " = 1, kw0 = 2, kw1 = 2, kw2 = 2, kw3 = 2))

我很高兴您的建议.

推荐答案

标头是一个以colspan为值的命名字符向量.

The header is a named character vector with colspan as values.

您必须使用功能names()分配矢量的名称.

You have to assign the names of the vector with the function names().

library(knitr)
library(kableExtra)
library(lubridate)
options(knitr.table.format = "latex")
loadData <- function() {# load some data}

myData<- loadData ()

kw0 <- paste("KW", week(Sys.Date()) - 1, sep = "")
kw1 <- paste("KW", week(Sys.Date()), sep = "")
kw2 <- paste("KW", week(Sys.Date()) + 1, sep = "")
kw3 <- paste("KW", week(Sys.Date()) + 2, sep = "")

# Set a named vector for dynamic header

# create vector with colspan
myHeader <- c(" " = 2, kw0 = 2, kw1 = 2, kw2 = 2, kw3 = 2)

# set vector names 
names(myHeader) <- c(" ", kw0, kw1, kw2, kw3)

kable(myData, row.names = FALSE, booktabs = T) %>%
  kable_styling(
  full_width = TRUE,
  font_size = 14 
  )  %>% add_header_above(header = myHeader)

这篇关于kableExtra:动态add_header_above标签的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！