kableExtra 乳胶代码不适用于粗体
kableExtra latex code not working for bold face
我正在尝试用 kableExtra
创建一些 tables 以便稍后在外部乳胶文档上使用它们,所以我想将 table 导出为 .tex文档。这工作正常,除非我尝试在某些行中使用粗体。
这是我正在使用的代码的 MWE:
require(kableExtra)
require(dplyr)
bold_letters = c(1,0,1)
df = cbind.data.frame("Noms" = c("A", "B", "C"), "var1" = c(1,2,3))
df %>%
mutate(Noms = cell_spec(Noms, bold = ifelse(bold_letters==0,FALSE,TRUE))) %>%
kable(format = "latex", escape = F, row.names = F, align = "c")
问题出在粗体字上。如果我把它放在 markdown 中并编织它,它工作正常,但如果我尝试导出 tex 代码,我会得到类似的东西:
\begin{tabular}{c|c}
\hline
Noms & var1\
\hline
<span style=" font-weight: bold; " >A</span> & 1\
\hline
<span style=" " >B</span> & 2\
\hline
<span style=" font-weight: bold; " >C</span> & 3\
\hline
\end{tabular}
据我所知,这不是乳胶代码。
PS:我可以创建 table 并将其导出为图像,但质量很差,而且它包括 table 两侧的白带作为图像的一部分,因此不切实际。
也许你会在没有 dplyr
的情况下完成它。您还需要 cell_spec
内的 format="latex"
,否则格式为 HTML.
library(kableExtra)
bold_letters <- c(1,0,1)
df <- cbind.data.frame(Noms=c("A", "B", "C"), var1=c(1, 2, 3))
df$Noms <- cell_spec(df$Noms, format="latex",
bold=ifelse(bold_letters == 0, FALSE, TRUE))
kable(df, format="latex", escape=FALSE, row.names=FALSE, align="c")
# \begin{tabular}{c|c}
# \hline
# Noms & var1\
# \hline
# \textbf{A} & 1\
# \hline
# B & 2\
# \hline
# \textbf{C} & 3\
# \hline
# \end{tabular}
我正在尝试用 kableExtra
创建一些 tables 以便稍后在外部乳胶文档上使用它们,所以我想将 table 导出为 .tex文档。这工作正常,除非我尝试在某些行中使用粗体。
这是我正在使用的代码的 MWE:
require(kableExtra)
require(dplyr)
bold_letters = c(1,0,1)
df = cbind.data.frame("Noms" = c("A", "B", "C"), "var1" = c(1,2,3))
df %>%
mutate(Noms = cell_spec(Noms, bold = ifelse(bold_letters==0,FALSE,TRUE))) %>%
kable(format = "latex", escape = F, row.names = F, align = "c")
问题出在粗体字上。如果我把它放在 markdown 中并编织它,它工作正常,但如果我尝试导出 tex 代码,我会得到类似的东西:
\begin{tabular}{c|c}
\hline
Noms & var1\
\hline
<span style=" font-weight: bold; " >A</span> & 1\
\hline
<span style=" " >B</span> & 2\
\hline
<span style=" font-weight: bold; " >C</span> & 3\
\hline
\end{tabular}
据我所知,这不是乳胶代码。
PS:我可以创建 table 并将其导出为图像,但质量很差,而且它包括 table 两侧的白带作为图像的一部分,因此不切实际。
也许你会在没有 dplyr
的情况下完成它。您还需要 cell_spec
内的 format="latex"
,否则格式为 HTML.
library(kableExtra)
bold_letters <- c(1,0,1)
df <- cbind.data.frame(Noms=c("A", "B", "C"), var1=c(1, 2, 3))
df$Noms <- cell_spec(df$Noms, format="latex",
bold=ifelse(bold_letters == 0, FALSE, TRUE))
kable(df, format="latex", escape=FALSE, row.names=FALSE, align="c")
# \begin{tabular}{c|c}
# \hline
# Noms & var1\
# \hline
# \textbf{A} & 1\
# \hline
# B & 2\
# \hline
# \textbf{C} & 3\
# \hline
# \end{tabular}