动态公式不适用于 startsWith 和 colnames

如何解决动态公式不适用于 startsWith 和 colnames

我正在制作一个函数来创建表格，我需要一些涉及格式化的条件规则。一个将基于列名，但是当我使用 as.formula 发送它时，它似乎已经完成了。我在这里做了一个例子：

library(tidyverse) 
library(rlang)

a <- as_tibble(x =cbind( Year = c(2018,2019,2020),a = 1:3,b.1 = c("a","b","c"),b.2 = c("d","e","f"),fac = c("This","This","That")))

foo <- function(x,y,z,...){
  y_var <- enquo(y)
  
  x %>%
    filter(Year %in% c(2018,2019),...) %>%
    mutate(!!quo_name(y_var) := factor(!!y_var,levels = z,ordered = TRUE)) %>%
    arrange(!!y_var)
    
}


to.table <- function(x,...){
  y_var <- enquo(y)
  
  df.in <- foo(x=x,y=!!y_var,z= z)
  cond <- paste("~!is.na(",quo_name(y_var),")")
  cond.2 <- paste("~startsWith(colnames(",df.in,"),\"b\")")
  
  
  flextable(df.in) %>%
    bold(i = as.formula(cond),part = "body") %>%
    bg(i = as.formula(cond.2),bg = "Red3",j = as.formula(cond.2))

}

to.table(x=a,y=Year,z= c(2020,2018,fac == "This")
Error in startsWith(colnames(2:3),"b") : non-character object(s)

从我一直在恢复的错误来看，它似乎在表达式通过 as.formula 之前解决了，因为这两列是正确答案。证明：

df.in <- foo(x=a,fac == "This")
startsWith(colnames(df.in),prefix = "b")
[1] FALSE FALSE  TRUE  TRUE FALSE

我在这里错过了什么？如果有人有解决方案或关于如何使用 quosures 或其他 tidyverse 友好方法以不同方式做事的建议，我将不胜感激。

扩展名：为了更清楚地说明这一点，我可能需要详细说明我对这个示例的预期用途。我试图弄清楚如何在表示为 foo 的函数中动态生成的名称以指定的值（通常为 3 列）开头，然后检查这些列中的指定值，然后我可以突出显示一种特定的颜色。此外，在答案中 cond 用于 i= 的两个指定中，两个单独的条件可能永远不会重叠。

解决方法

我们可以使用所创建数据的列名指定 j，即 startsWith 根据以 'b' 开头的名称从列名返回一个 logical 向量，使用使用 [ (nm1) 提取列名的逻辑向量。

to.table <- function(x,y,z,...){
  y_var <- enquo(y)
  
  df.in <- foo(x=x,y=!!y_var,z= z)
  
  cond <- as.formula(glue::glue('~ !is.na({quo_name(y_var)})'))
  nm1 <- names(df.in)[startsWith(names(df.in),prefix = "b")]
  
  flextable(df.in) %>%
      bold(i = cond,part = "body") %>%
      bg(i = cond,bg = "Red3",j = nm1)
  
 
}

-测试

to.table(x=a,y=Year,z= c(2020,2018,2019),fac == "This")

-输出

在 OP 为 'cond' 创建的后公式很好，尽管使用 glue 更灵活，而第二个，即 'cond.2' 返回

paste("~startsWith(colnames(",df.in,"),\"b\")")
[1] "~startsWith(colnames( 2:3 ),\"b\")"                   "~startsWith(colnames( c(\"1\",\"2\") ),\"b\")"      
[3] "~startsWith(colnames( c(\"a\",\"b\") ),\"b\")"       "~startsWith(colnames( c(\"d\",\"e\") ),\"b\")"      
[5] "~startsWith(colnames( c(\"This\",\"This\") ),\"b\")"

这是因为 df.in 是一个 data.frame，我们试图在其上粘贴 startsWith(colnames( 字符串。返回的每一行都是列值

如果我们想获得带有 'red' 颜色的 'a' 或 'b' 列名称前缀，请将 startsWith 更改为 grep，这可以将 regex 视为 {{ 1}}

pattern

-输出

如果我们想根据'a'的值着色

to.table <- function(x,z= z)
  
  cond <- as.formula(glue::glue('~ !is.na({quo_name(y_var)})'))
  nm1 <- grep("^(a|b)",names(df.in),value = TRUE)
  
  flextable(df.in) %>%
    bold(i = cond,part = "body") %>%
    bg(i = cond,j = nm1)
  
  
}
to.table(x=a,fac == "This")

-输出