我一直在尝试使用rMarkdown
包在kableExtra
中生成和设计一个表。我的目标是文档的Word编织输出。因此,我按照Rmd的建议安装了LaTexiT
软件包,以将其编织为Word和PDF。
在安装乳胶之前,通过使用kableExtra
和功能kable_styling()
,pac_rows()+row_spec()
,add_header_above()
,我制作的表完全符合我的期望。我有了不错的列分组和标题着色,得到了我想要的。
在我安装LaTexiT
之后,甚至连html都无法产生-它刚产生的东西。我正在写纸,需要能够用Word或PDF编制。
我的df是
data.frame': 33 obs. of 9 variables:
$ TAXON : logi NA NA NA NA NA NA ...
$ Among.all.three.sites: Factor w/ 11 levels "Amigos species #1461",..: 7 10 NA NA NA NA NA NA NA NA ...
$ Among.two.sites : Factor w/ 13 levels "Chulos species #1992",..: 2 4 7 10 13 NA NA NA NA NA ...
$ Site_A : Factor w/ 18 levels "Figaro species #1784",..: 10 11 12 13 16 18 NA NA NA NA ...
$ Site_B...5 : Factor w/ 21 levels "Siamese species",..: 3 4 5 6 8 9 10 11 13 16 ...
$ Site_C : Factor w/ 22 levels "Joyful species #1990",..: 5 21 NA NA NA NA NA NA NA NA ...
$ Site_A : Factor w/ 9 levels "Austroungarian species",..: 8 9 NA NA NA NA NA NA NA NA ...
$ Site_B : Factor w/ 22 levels "Whatever species",..: 1 19 3 9 15 16 17 18 21 NA ...
$ Site_C : Factor w/ 18 levels "Love you species #1990",..: 1 2 3 4 6 7 8 9 12 13 ...
所以我基本上需要将第2列和第3列分组在一个标题下,将第4列,5列和6分组在另一个标题下,以及将7、8和9列在另一个分组下。
同样在标题行下,我需要为1-13行,14-28行和29-33行添加额外的分组。
这是我在Rmarkdown中一直使用的代码,并且以前曾经起作用过:
Table_1 <- read.table("Table.txt", header=T)
devtools::install_github("haozhu233/kableExtra")
library(knitr)
opts_chunk$set(echo=FALSE)
library(kableExtra)
options(knitr.table.format = "latex")
options(knitr.kable.NA = '')#I have empty cells
kable(Table_1[1:33, 1:9], format="latex", caption = "Table 1. Good stuff",col.names=c("Taxon","Among all three sites", "Among two sites", "Site_A","Site_B", "Site_C", "Site_A", "Site_B","Site_C" )) %>%
kable_styling(latex_option="striped", full_width = TRUE) %>%
add_header_above(c(" ", "First Header" = 2, "Second header" = 3, "third header"=3)) %>%
pack_rows("Taxon1", 1, 13,label_row_css = "background-color: #99999C; color: #fff;") %>%
row_spec(1:13, italic = T)%>%
pack_rows("Taxon2", 14, 28,label_row_css = "background-color: #99999C; color: #fff;")%>%
row_spec(14:28, italic = T)%>%
pack_rows("Taxon3", 29, 33,label_row_css = "background-color: #99999C; color: #fff;")%>%
row_spec(29:33, italic = T)
knitr::opts_chunk$set(
echo = FALSE,
message = FALSE,
warning = FALSE)
我最初使用的代码可以完美地完成所有工作,但是在MacOS上安装了Latex应用后,它不再响应了。
有人可以帮助我找出发生了什么事吗?我对代码所做的任何更改现在都不会更改编织结果,而与Word或PDF或html无关...是否需要卸载LatexiT
?
谢谢大家的帮助,这让我有些疯狂...
例如,我正在上传一张用excel制作的表格的图片,但最初我是用Kablextra