如何使用 kable extra r-markdown 在特定列中为空格添加换行符或换行符？

问题描述

我正在使用 r-markdown 生成 pdf。我想在有空间的数据框中的列中添加换行符或换行符

C1       C2    ID
-----------------
22.6    a-b    a
23.5    ba-cd  b
24     c-d     c
25.3    d-e    d

我想要像这样的输出

C1     ID
------------
22.6   a
a-b

23.5   b
ba-cd

我的代码

df$C1<- with(df,paste0(C1,'\n',C2))

df$C2<-NULL

kbl(df,booktabs = T,longtable = T,align = c("c","c","c")) %>%
kable_styling(latex_options = c("repeat_header"),bootstrap_options = "bordered",font_size = 7,full_width = F)%>%
  column_spec(1,width = "8cm")%>%
  column_spec(2:4,width = "2.25cm")%>%
  row_spec(0,bold = T,color = "white",background = "#008752")

解决方法

使用 <br/> 标记换行 -

library(knitr)
library(kableExtra)

df$C1<- with(df,paste0(C1,'<br/>',C2))

df$C2<-NULL

kbl(df,booktabs = T,longtable = T,align = c("c","c"),escape = F) %>%
  kable_styling(latex_options = c("repeat_header"),bootstrap_options = "bordered",font_size = 7,full_width = F)%>%
  column_spec(1,width = "8cm")