为什么在 R ggplot2::facet_grid() 中传递字符串适用于行但不适用于列？

Question

Here 是解决该问题的一些解决方法，但是您是否有理由可以在ggplot2::facet_grid() 中为rows 传递一个字符串，但不能为cols 传递一个字符串？

这有效（注意rows 属性）：

f_varname <- 'drv'

ggplot( mpg, aes( displ, cty ) ) + geom_point() +

    facet_grid( rows = f_varname )

但这不是（注意cols 属性）：

f_varname <- 'drv'

ggplot( mpg, aes( displ, cty ) ) + geom_point() +

    facet_grid( cols = f_varname )

# => Error: `cols` must be `NULL` or a `vars()` specification

相反，您必须对cols 使用vars() 规范：

ggplot( mpg, aes( displ, cty ) ) + geom_point() +
    
    facet_grid( cols = vars( drv ) )

哪个不能处理字符串：

f_varname <- 'drv'

ggplot( mpg, aes( displ, cty ) ) + geom_point() +
    
    facet_grid( cols = vars( f_varname ) )

# =>
# Error: At least one layer must contain all faceting variables: `f_varname`.
# * Plot is missing `f_varname`
# * Layer 1 is missing `f_varname`

从链接的讨论中，answer 也适用于字符串：

f_varname <- 'drv'

ggplot( mpg, aes( displ, cty ) ) + geom_point() +
    
    facet_grid( reformulate( f_varname ) )

Answer 1

我认为@Limey 在 cmets 中的解释是您问题的答案，但如果您正在寻找一个实用的解决方案（在您链接的解决方案之外），您可以将字符串转换为符号（使用 sym() ) 然后使用 bang-bang 运算符将其传递给 vars，例如

library(tidyverse)
f_varname <- sym("cyl")
ggplot(mpg, aes(displ, cty)) +
  geom_point() +
  facet_grid(cols = vars(!!f_varname))