动态公式不适用于 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 友好方法以不同方式做事的建议，我将不胜感激。

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

Answer 1

我们可以使用创建的数据的列名指定 j，即 startsWith returns 一个基于列名的 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 的 post 中为 'cond' 创建的公式很好，尽管使用 glue 更灵活一点，而第二个即 'cond.2' returns

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")

-输出

动态公式不适用于 startsWith 和 colnames

Dynamic formula not working with startsWith and colnames

r

flextable