r - 动态公式不适用于 startsWith 和 colnames

Question

我正在制作一个函数来创建表格，我需要一些涉及格式化的条件规则。一个将基于列名，但是当我使用 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, z, ...){
  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,2019),
         fac == "This")
Error in startsWith(colnames(2:3), "b") : non-character object(s) 

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

df.in <- foo(x=a,
          y=Year,
          z= c(2020,2018,2019),
          fac == "This")
startsWith(colnames(df.in), prefix = "b")
[1] FALSE FALSE  TRUE  TRUE FALSE

我在这里缺少什么？如果有人有解决方案，或有关如何使用 quosures 或其他 tidyverse 友好方法以不同方式做事的建议，我将不胜感激。
延期:
为了更清楚地说明这一点，我可能需要详细说明我对这个示例的预期用途。我试图弄清楚如何在表示为 foo 的函数中获取动态生成的名称。以指定值(通常为 3 列)开头，然后检查这些列中的指定值，然后我可以用特定颜色突出显示。
另外在答案中 cond用于 i=指定，两个单独的条件可能永远不会重叠。

Answer 1

我们可以指定 j使用创建的数据的列名，即 startsWith 返回 logical根据以'b'开头的名称从列名中提取向量，使用逻辑向量提取列名[ (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如 pattern

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 <- grep("^(a|b)", names(df.in), value = TRUE)
  
  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")

-输出


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

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 = ~ a == 2,
       bg = "Red3",
       j = nm1)
  
}



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

-输出