问题描述
我正在制作一个函数来创建表格,我需要一些涉及格式化的条件规则。一个将基于列名,但是当我使用 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")
-输出