导出 data.table 并在新行中打印单元格内容

Question

让我们有一个数据框：

df <- data.frame(c('Warsaw; Nairobi'),c('Mogadishu; Ottawa'),c('Berlin; Paris'))
colnames(df)<-c('a','b','c')

现在是时候将数据导出到表 .docx

library(officer)
library(flextable)
library(magrittr)
my_doc <- read_docx()
export <- my_doc%>%body_add_table(df)
print(export, target = "my_path/table.docx")

我想交换分号来签名，这将迫使 MS Word 在同一单元格内以新行打印首都。

点赞右侧栏：

Answer 1

将; 替换为\n：

df$a <- gsub("; ", "\\\n", df$a)
df$b <- gsub("; ", "\\\n", df$b)
df$c <- gsub("; ", "\\\n", df$c)

flextable(df)