如何在R中提取多列数据并按指定格式合并为单个元素？

1. 自动生成目标格式的新数据框 #

你可以用sprintf()函数精准拼接数值与文本，实现格式的自动化生成，完全避免手动操作的繁琐与错误，代码如下：

# 加载依赖包
library(dplyr)
library(flextable)

# 原始数据
country <- c('A','B','C','D','E')
var <- c(8,2,1,5,3)
CIlb <- c(7,1,1,4,2)
CIub <- c(9,3,1,4,1)
df <- cbind.data.frame(country, var, CIlb, CIub)

# 生成目标格式列并保留所需列
df_new <- df %>%
  mutate(measure = sprintf("%d (%d-%d)", var, CIlb, CIub)) %>%
  select(country, measure)

如果你的数据是小数，只需将%d替换为%.1f（保留1位小数）、%.2f（保留2位小数）这类格式符即可灵活调整。

2. 用flextable生成美观表格 #

基于新数据框，通过flextable的预设主题和自定义样式快速制作规范表格：

# 创建基础表格并美化
ft <- flextable(df_new) %>%
  set_header_labels(country = "国家", measure = "测量值（置信区间）") %>%
  theme_booktabs() %>% # 应用简洁专业的表格主题
  align(align = "center", part = "all") %>% # 所有内容居中对齐
  autofit() # 自动适配列宽

# 输出表格
ft

你还可以根据需求添加更多样式，比如调整字体大小、边框颜色等：

ft <- ft %>%
  fontsize(size = 12, part = "all") %>%
  border_outer(border = fp_border(color = "#666666", width = 1))

内容的提问来源于stack exchange，提问作者SpecialK201