R语言如何将dataframe所有列转为单个列表 适配flextable条件格式需求

dplyr兼容实现 #

直接通过管道操作完成提取，支持灵活筛选需要的列：

library(dplyr)

# 提取所有值为向量，保留原类型可删除as.character()
result <- df %>%
  select(everything()) %>%  # 可替换为指定列，如select(COL_1, COL_3)
  unlist(use.names = FALSE) %>%
  as.character()

# 如需输出带引号逗号分隔的字符串格式，额外执行：
paste(shQuote(result), collapse = ", ")

运行上述代码即可得到你需要的"1", "2", "3", "A", "B", "C", "Peach", "Plum", "Pear"格式输出。

基础R极简实现 #

不需要加载任何包也可以快速实现：

result <- as.character(unlist(df, use.names = FALSE))

不需要逐列逐单元格编写规则，可通过指定列范围、批量遍历的方式实现多列格式设置：

1. 先筛选要设置格式的列，比如所有数值列：

num_cols <- df %>% select(where(is.numeric)) %>% colnames()

2. 批量应用同一种条件规则：

library(flextable)

ft <- flextable(df) %>%
  # 所有数值列中大于2的值设置为红色字体、浅红色背景
  color(j = num_cols, i = ~ COL_1 > 2, color = "red") %>%
  bg(j = num_cols, i = ~ COL_1 > 2, bg = "#ffe6e6")

3. 各列使用独立条件时，用循环批量处理：

ft <- flextable(df)
# 示例：每个数值列中大于列均值的单元格标黄
for (col in num_cols) {
  ft <- ft %>%
    bg(j = col, i = ~ !!sym(col) > mean(!!sym(col)), bg = "yellow")
}

如果是要设置整行格式，直接删除j参数的列指定即可，规则会自动应用到所有列。

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