代码之家 › 专栏 › 技术社区 › J.Sabree

如何根据字符串更改flextable中的单元格文本颜色?

flextable stringr r

J.Sabree · 技术社区 · 10 月前

在Flextable中,如果检测到“+”(绿色)或“-”(红色),我会尝试更改单元格中文本的颜色。这个 help guide 它非常清楚如何对数字数据执行此操作,但它没有显示如何基于检测特定字符串来执行此操作。我已经包含了示例数据和代码,但它给出了这个错误

Error in rep(color, each = length(i)) : 
  attempt to replicate an object of type 'language'

以下是示例代码:

library(flextable)
library(tidyverse)

sample_data <- tibble(
  age = c(20, 40, 30, 50),
  score = c("+5pp", "-4pp", "+7pp", "-10pp")
)

sample_data %>%
  flextable() %>%
  color(part = "body", 
        color = ~ case_when(
          str_detect(., "+") ~ "green",
          str_detect(., "-") ~ "red",
          TRUE ~ "black"  # Default color
        )
  )

我想要的输出是 age 列的文本和标题一样保持黑色。但是,我希望分数文本的颜色会根据分数是加还是减而变化(注意:并非我想改变颜色的所有单元格都有数字,所以如果可能的话,我不想用后门的方式检查数字是正是负)。

2 回复 | 直到 10 月前

jpsmith 10 月前

您可以添加两个颜色语句,而不是 case_when :

sample_data %>%
  flextable() %>%
  color(i = ~ grepl("\\+", score), j = "score", color = "green") %>%
  color(i = ~ grepl("-", score), j = "score", color = "red")        

# or using `stringr`:
sample_data %>%
  flextable() %>%
  color(i = ~ stringr::str_detect(score, "\\+"), j = "score", color = "green") %>%
  color(i = ~ stringr::str_detect(score, "-"), j = "score", color = "red")

stefan 10 月前

另一种选择是使用 function() 或 \() 而不是a tidyverse style lambda函数显然不起作用,很可能不受支持:

library(flextable)
library(tidyverse)

sample_data <- tibble(
  age = c(20, 40, 30, 50),
  score = c("+5pp", "-4pp", "+7pp", "-10pp")
)

sample_data %>%
  flextable() %>%
  color(
    part = "body",
    color = \(x) {
      case_when(
        str_detect(x, "\\+") ~ "green",
        str_detect(x, "\\-") ~ "red",
        TRUE ~ "black"
      )
    }
  )

推荐文章

Sati · str_extract只捕获重复关键字的一个实例

8 年前

Santosh · 使用模式R正则表达式的文本捕获

8 年前

Daniel · R:找到图案并编辑

8 年前

ima · 从具有字符串名称的循环中绘制多个图

8 年前

user1412 · 在变量中搜索字符串并返回匹配的字符串

8 年前

cgibbs_10 · 如何检查字符串是否完全由某些字符串模式组成

8 年前

cgibbs_10 · 在R中字符串的每个字符之间插入垂直条

8 年前

Doug Fir · 基于正则表达式和正则表达式值变异数据帧

8 年前

Selva · Regex替换R中的wiki引文

9 年前

Dre · 如何在不知道R中单词的情况下匹配某个字符后的单词?

9 年前