仅当列存在时执行dplyr操作

Question

根据对条件dplyr评估的讨论，我想根据传递的数据帧中是否存在参考列，有条件地在管道中执行一个步骤。

1）和2）生成的结果应该是相同的。

# 1)
mtcars %>% 
  filter(am == 1) %>%
  filter(cyl == 4)

# 2)
mtcars %>%
  filter(am == 1) %>%
  {
    if("cyl" %in% names(.)) filter(cyl == 4) else .
  }

# 1)
mtcars %>% 
  filter(am == 1)

# 2)    
mtcars %>%
  filter(am == 1) %>%
  {
    if("absent_column" %in% names(.)) filter(absent_column == 4) else .
  }

对于可用列，传递的对象与初始数据帧不对应。原始代码返回错误消息：

过滤器中出错（cyl==4）：未找到对象“cyl”

我尝试过其他语法（运气不佳）：

>> mtcars %>%
...   filter(am == 1) %>%
...   {
...     if("cyl" %in% names(.)) filter(.$cyl == 4) else .
...   }
 Show Traceback

 Rerun with Debug
 Error in UseMethod("filter_") : 
  no applicable method for 'filter_' applied to an object of class "logical" 

我想扩展这个问题，以解释过滤器调用中=右侧的评估。例如，下面的语法试图过滤第一个可用值。mtcars%

filter({
    if ("does_not_ex" %in% names(.))
      does_not_ex
    else
      NULL
  } == {
    if ("does_not_ex" %in% names(.))
      unique(.[['does_not_ex']])
    else
      NULL
  })

预期的是，调用的结果是错误消息：

filter_impl（.data，quo）中出错：结果的长度必须为32，而不是0

应用于现有列时：

mtcars %>%
  filter({
    if ("mpg" %in% names(.))
      mpg
    else
      NULL
  } == {
    if ("mpg" %in% names(.))
      unique(.[['mpg']])
    else
      NULL
  })

它带有一条警告信息：

  mpg cyl disp  hp drat   wt  qsec vs am gear carb
1  21   6  160 110  3.9 2.62 16.46  0  1    4    4

警告消息：在{中：较长的对象长度不是较短对象长度的倍数

为了在过滤器调用的右侧获得条件求值，最好是保持在dplyr工作流中，是否有一种扩展现有语法的简洁方法？

Answer 1

我知道我来晚了，但这里有一个更符合你最初想法的答案：

mtcars %>%
  filter(am == 1) %>%
  {
    if("cyl" %in% names(.)) filter(., cyl == 4) else .
  }

基本上，你错过了 在过滤器中。注意这是因为管道没有添加到过滤器（expr），因为它位于一个被{}包围的表达式中。

Answer 2

匿名用户

在dplyr中跨（）使用

mtcars %>% 
  filter(am == 1) %>% 
  filter(cyl == 4)

删除cyl后，它会抛出一个错误：

mtcars %>% 
  select(!cyl) %>% 
  filter(am == 1) %>% 
  filter(cyl == 4)

使用any_of（注意您必须编写"cyl"而不是cyl）：

mtcars %>% 
  select(!cyl) %>% 
  filter(am == 1) %>% 
  filter(across(any_of("cyl"), ~.x == 4))
#N.B. this is equivalent to just filtering by `am == 1`.

Answer 3

由于此处作用域的工作方式，您无法从if语句中访问数据帧。幸运的是，你不需要这么做。

尝试：

mtcars %>%
  filter(am == 1) %>%
  filter({if("cyl" %in% names(.)) cyl else NULL} == 4)

在这里，您可以使用“”。条件中的'对象，因此您可以检查列是否存在，如果存在，您可以将列返回给filter函数。

编辑：根据docendo discimus对该问题的评论，您可以访问数据帧，但不能隐式访问，即您必须使用专门引用它