标签: kable

如果单元格的值大于80,我需要为单元格着色.例如,给定此数据框称为df:

dput(df)

structure(list(Server = structure(1:2, .Label = c("Server1", 
"Server2"), class = "factor"), CPU = c(79.17, 93), UsedMemPercent = c(16.66, 
18.95)), .Names = c("Server", "CPU", "UsedMemPercent"), row.names = c(NA, 
-2L), class = "data.frame")

df [2,2]应为红色.我能够使用xtable通过类似的方式更改文本的颜色:

df[, 2] = ifelse(df[, 2] > 80, paste("\\color{red}{", round(df[, 2], 2), "}"), round(df[, 2], 2))

如果我这样做并用kable打印出桌子,它就不会打印出来.任何想法如何在kable输出表中为单元格着色？

我正在尝试为我的 kable 表的单元格提供一些自定义 HTML 类。但问题是 div 的编码就像单元格的内容一样。我记得闪亮的桌子有一种方法可以让 celle 的内容逃逸并按原样解释。rmarkdown/knitr 有这样的东西吗？

例如：

make_green  function(x) {
    x <- paste('<div class="button is-success">',x,">/div>")

    return(x)
}

new_df <- iris %>% mutate(speci = make_green(Species))
kable(head(new_df))

返回类似这样的内容：

<td style="text-align:right;"> 5.1 </td>
<td style="text-align:right;"> 3.5 </td>
<td style="text-align:right;"> 1.4 </td>
<td style="text-align:right;"> 0.2 </td>
<td style="text-align:left;"> setosa </td>
<td style="text-align:left;"> &lt;div class=&quot;button is-success&quot;&gt; setosa &lt;/div&gt; </td>

但我希望它返回类似的内容：

<td style="text-align:right;"> 5.1 </td>
<td style="text-align:right;"> 3.5 </td>
<td style="text-align:right;"> 1.4 </td>
<td style="text-align:right;"> 0.2 </td>
<td style="text-align:left;"> setosa </td>
<td …

如何使用函数调用将以下内容编织到 PDF？

---
title: '`r params$college` report'
params:
  college: 'Art & Business'
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, message = F)
```

```{r}
library(tidyverse)
library(knitr)
library(kableExtra)
```

```{r}
mtcars %>% 
 kable( format = 'latex',  longtable = T, booktabs = T) %>% 
  kable_styling(latex_options = "condensed", font_size = 8) %>% 
  landscape(margin = c('1cm')) 
```

我认为 rmarkdown::render('filename.Rmd')会起作用，但是我收到一个错误，而在 RStudio 中使用 knit 按钮时它起作用了。因此，我想知道按下 knit 按钮和使用render.

当我使用时，render()我收到此错误消息：

/Applications/RStudio.app/Contents/MacOS/pandoc/pandoc +RTS -K512m -RTS test.utf8.md --to latex --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output test.tex …

我正在使用以下代码绘制表，但发现没有多余的列名V1和V2作为列名出现。

statdat<-read.table("stat.txt",sep="\t",header=FALSE)
kable(statdat) 

如何避免打印列名？

我有一个 R Markdown 表格，\rule{1cm}{0.4pt}其中一列的每个单元格中都包含此 LaTeX 命令。kable如果我不包含该包，表格格式就很好kableExtra。如果我确实包含kabelExtra,LaTeX 命令，则不再解释。不使用和使用 kableExtra 的结果如下所示。没有进行其他更改。上面的例子是我想要的结果。

我检查了 .tex 输出。kableExtra似乎将 LaTeX 命令格式化为文字文本：\textbackslash{}rule\{1cm\}\{0.4pt\}而不是上面显示的命令。

我想使用 kableExtra 来实现其他功能，例如设置列宽，但我需要它来解释 LaTeX 命令。我在手册或小插图中没有找到任何似乎涉及 LateX 命令的内容。我错过了什么吗？

编辑

我尝试在使用时添加format = "latex"到呼叫中，但仍然出现不期望的结果。kablekableExtra

微量元素

---
title: "Without kableExtra"
output: 
  pdf_document: 
    keep_tex: TRUE
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
library(tibble)
library(knitr)
#library(kableExtra)

a = seq(1:3)
b = seq(4:6)
tab <- as.tibble(cbind(a,b))
tab <- add_column(tab, c = "\\rule{1cm}{0.4pt}")
```

```{r}
kable(tab, …

在 R markdown 中，编织为 PDF，kable 允许包含“标题”（实际上是表格标题），但我想在表格下方添加另一个较小字体的标题。有什么想法如何做到这一点吗？（我不想只在主降价文档下面添加文本，因为它是数字而不是表格浮动的一部分）。

library(knitr)
name <- c('Na~2~O', 'Ca', 'Ba')
value <- c(2,3,5)
data <- data.frame(name, value)
rownames(data) <- data[,1]
data$name <- NULL
kable(data, format = "pandoc", caption = 'some title')