14

我已经阅读了bookdown 书，但仍然无法弄清楚这一点。我正在尝试通过bookdown. 我想用来kableExtra在我的表格中添加条带，并加粗我的最后一个表格行。kableExtra编织到Word时可以使用吗？

这是我的代码的一个子集：

library(dplyr)    
knitr::opts_chunk$set(echo = TRUE)
library(knitr)  # required for kable
library(kableExtra)  # required for kableExtra
options(knit.r.table.format = "markdown")

myRegion <- c("a", "b", "c")
Current_Perc_1 <- c(85.9, 90.8, 89.7)
Current_Perc_2 <- c(88.0, 91.0, 89.0)
tab_curr_est_2_times <- cbind(myRegion, Current_Perc_1, Current_Perc_2)
tab_curr_est_2_times <- as.data.frame(tab_curr_est_2_times, stringsAsFactors = FALSE)
tab_curr_est_2_times$Current_Perc_1 <- as.double(tab_curr_est_2_times$Current_Perc_1)
tab_curr_est_2_times$Current_Perc_2 <- as.double(tab_curr_est_2_times$Current_Perc_2)
tab_curr_est_2_times$curr_change_1_to_2 <- tab_curr_est_2_times$Current_Perc_2 - tab_curr_est_2_times$Current_Perc_1

tab_1_curr <- tab_curr_est_2_times
tab_1_curr[ nrow(tab_1_curr)+1 , ] <- NA
tab_1_curr$myRegion[ nrow(tab_1_curr) ] <- "BRITISH COLUMBIA"
tab_1_curr$Current_Perc_1[ nrow(tab_1_curr) ] <- 88.4
tab_1_curr$Current_Perc_2[ nrow(tab_1_curr) ] <- 89.3
tab_1_curr$curr_change_1_to_2[ nrow(tab_1_curr) ] <- 0.9

knitr::kable(tab_1_curr, digits = 1, align = "lccc", position = "c", 
         caption = "\\: my table caption here") %>%
  kable_styling("striped") %>%
  row_spec(nrow(tab_1_curr), bold = TRUE)

我的bookdown设置如下：

--- 
title: "My Report"
author: "Me"
date: "`r Sys.Date()`"
site: "bookdown::bookdown_site"
output:
  bookdown::word_document2:
    fig_caption: true
documentclass: book
---

当我点击 RStudio 中的 Knit 按钮时，我得到了这张表：

我希望最后一行是粗体，我希望表格是条纹的。我该怎么做呢 ？（我还收到以下错误：“当前不支持使用 pandoc 的通用降价表。”）

4

3 回答 3

13

这是不可能的，但由于 pandoc V2 已经发布，您可以使用 package flextable (>= 0.4.0)（和pandoc V2）来做到这一点。在代码下方，您应该添加到代码块中：

library(magrittr)
library(flextable)

tab_1_curr <- structure(list(myRegion = c("a", "b", "c", "BRITISH COLUMBIA"
 ), Current_Perc_1 = c(85.9, 90.8, 89.7, 88.4), Current_Perc_2 = c(88, 
 91, 89, 89.3), curr_change_1_to_2 = c(2.09999999999999, 0.200000000000003, 
 -0.700000000000003, 0.9)), .Names = c("myRegion", "Current_Perc_1", 
 "Current_Perc_2", "curr_change_1_to_2"), row.names = c(NA, 4L
 ), class = "data.frame")


regulartable(tab_1_curr) %>% 
  bold(i = ~ myRegion %in% "BRITISH COLUMBIA") %>% 
  theme_zebra() %>% 
  autofit()
于 2017-12-12T16:31:06.137 回答
9

该huxtable软件包可用。它包括与kableExtra. huxtable旨在输出到 LaTeX/PDF 和 HTML（类似于kableExtra）。但是，huxtable它还包括一个as_flextable将 huxtable 对象转换为 flextable 对象的函数，该对象可以输出到 Word（如上面 David 所述）。经过大量搜索，在我看来，它似乎huxtable是唯一一个可以通过单个包轻松输出到所有 Word、HTML 和 PDF 的可用包。

于 2018-05-27T16:34:29.800 回答
4

潘多克

转换为 word 是通过pandoc. 目前 pandoc 只创建四种类型的表，

  • 简单的表格
  • 多行表
  • 网格表
  • 管道表

在 pander和pandoc手册第 35-39 页中演示了其中一些支持的格式。

因此，您当前无法使用 pandoc创建剥离表。

您还可以很好地总结如何使用rmarkdown.rstudio中的表格。

潘多克 v2

看看下面大卫的好消息

于 2017-12-10T13:17:37.797 回答