我有一个包含值的示例数据框：

data <- structure(list(A = c("Date)", "Values"), B = c("2023-04-03", "Heat Capacity\nSpecific Heat Capacity\nHeat Index" )), row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame" ))

这里最后一列的第二行向右延伸。我希望每个值都位于新行中而不添加新行。

我想要的输出：

上表是使用创建的gt():

library(gt)
data %>%   
mutate(b = str_replace_all(b, "\n", "<br>")) %>%    
gt() %>%    
fmt_markdown(columns = TRUE)

但这没有用，因为我想要的最终所需输出位于 xlsx 文件中并使用gt()行不通的。 是否可以做任何事情dplyr and stringr达到类似的结果

您可以使用包gt设置演示质量表的格式。
See 这个介绍gt.

这是代码，输出省略。

suppressPackageStartupMessages({
  library(tidyverse)
  library(gt)
})

data <- structure(list(
  A = c("Date)", "Values"), 
  B = c("2023-04-03", "Heat Capacity\nSpecific Heat Capacity\nHeat Index" )), 
  row.names = c(NA, -2L), class = c("tbl_df", "tbl", "data.frame" ))

data %>%
  mutate(B = gsub("\\n", "<br>", B)) %>%
  gt() %>%
  fmt_markdown(columns = everything())

^{Created on 2023-08-05 with reprex v2.0.2}

Edit

您可以导出为 HTML 文件并在 Excel 中打开该文件：

• 微软,
• 堆栈溢出.

data %>%
  mutate(B = gsub("\\n", "<br>", B)) %>%
  gt() %>%
  fmt_markdown(columns = everything()) %>%
  as_raw_html() %>%
  writeLines(con = "~/Temp/so.html")