在R中将quosure转换为字符串

Question

我一直在使用dplyr的商号：

library(dplyr)
library(ggplot2)

thing <- quo(clarity)
diamonds %>% select(!!thing)
print(paste("looking at", thing))

“看~”“看清楚”

我真的想把字符串值打印出来，但只能得到以下内容：

print(thing)

<质量: global> ~清晰度

print(thing[2])

清晰度()

substr(thing[2],1, nchar(thing[2]))

1“清晰”

是否有更简单的方法来“取消”一个条件()？

Answer 1

我们可以使用quo_name

print(paste("looking at", quo_name(thing)))

Answer 2

如果质量太长，quo_name就不能工作：

> q <- quo(a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p + q + r + s + t + u + v + w + x + y + z)
> quo_name(q)
[1] "+..."

rlang::quo_text (不是由dplyr导出)工作得更好，但是引入了换行(可以通过参数width来控制)：

> rlang::quo_text(q)
[1] "a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p + \n    q + r + s + t + u + v + w + x + y + z"

否则，也可以使用as.character，但返回长度为2的向量。第二部分是你想要的：

> as.character(q)
[1] "~"                                                                                                    
[2] "a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p + q + r + s + t + u + v + w + x + y + z"
> as.character(q)[2]
[1] "a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + p + q + r + s + t + u + v + w + x + y + z"

Answer 3

如果在函数中使用，则需要首先对其进行enquo()。还请注意，使用更新版本的rlang，as_name()似乎是首选！

library(rlang)
fo <- function(arg1= name) {
  print(rlang::quo_text(enquo(arg1)))
  print(rlang::as_name(enquo(arg1)))
  print(rlang::quo_name(enquo(arg1)))
}

fo()  
#> [1] "name"
#> [1] "name"
#> [1] "name"