如何在 pdf 输出中有部分斜体的列？答案

【问题标题】：How to have partially italicized columns in pdf output?如何在 pdf 输出中有部分斜体的列？
【发布时间】：2023-03-24 10:46:02
【问题描述】：

此问题与Creating a data frame that produces partially italicized cells with pkg:sjPlot functions有关

我想在kable 中使用部分斜体单元格。我试过了

library(tidyverse); library(kableExtra)

sum_dat_final2 <- list(Site = c("Hanauma Bay", "Hanauma Bay", "Hanauma Bay", "Waikiki", "Waikiki", "Waikiki"), 
                   Coral_taxon = expression( italic(Montipora)~ spp., 
                                             italic(Pocillopora)~spp., 
                                             italic(Porites)~spp., 
                                             italic(Montipora)~ spp.,  
                                             italic(Pocillopora)~spp.,  
                                             italic(Porites)~spp.))

sum_dat_final2 %>%
  as.data.frame()%>%
  kbl(longtable = F, "latex")

并收到此错误Error in as.data.frame.default(x[[i]], optional = TRUE) : cannot coerce class ‘"expression"’ to a data.frame

提前非常感谢！！

【问题讨论】：

标签： pdf kable kableextra

【解决方案1】：

您可以通过添加$ 使特定部分变为斜体。从这个意义上说，您需要在 kbl 函数上设置 escape = F。

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

sum_dat_final2 <- list(Site = c("Hanauma Bay", "Hanauma Bay", "Hanauma Bay", "Waikiki", "Waikiki", "Waikiki"), 
                   "Coral_taxon" = c("$Montipora$$~$ spp.",
                                   "$Pocillopora$$~$spp.",
                                   "$Porites$$~$spp.",
                                   "$Montipora$$~$ spp.",
                                   "$Pocillopora$$~$spp.",
                                   "$Porites$$~$spp."))

sum_dat_final2 %>%
  as.data.frame()%>%
  kbl(longtable = F, "latex", 
      escape = F,
      col.names = c("Site", "Coral taxonomie"))
```

--输出

【讨论】：