为什么我的“如果”论点不能解释为合乎逻辑的

编程问答 2022-05-30

问题描述

我正在处理一些数据并尝试进行一些条件过滤。我想编写一个语句来评估一个变量是否等于一个数字（在本例中为 1），如果是，则根据另一列的值进行过滤。结果应该是所有 AtBatPitchSequences == 1 也有 PitchType == "FA"。

  • 请注意，如果 AtBatPitchSequence > 1 则不应过滤，因此第 4 行应保留在过滤器之后

我的数据（firsttwopitches）如下所示：

  YearID GameID GamePitchSequen~ PAofInning AtBatPitchSeque~ Inning Balls Strikes PitchType
   <dbl> <chr>             <dbl>      <dbl>            <dbl>  <dbl> <dbl>   <dbl>     <chr>
1   2018 DFCBC~                1          1                1      1     0       0        FA
2   2018 DFCBC~                2          1                2      1     1       0        FA
3   2018 DFCBC~                4          2                1      1     0       0        FA
4   2018 DFCBC~                5          2                2      1     0       1        SI
5   2018 DFCBC~                8          3                1      1     0       0        FA
6   2018 DFCBC~                9          3                2      1     0       1        FA

为了解决这个问题，我尝试使用 if 语句：

library(tidyverse)

firsttwopitches %>%
  if (AtBatPitchSequence == 1) {
    filter(PitchType == "FA")
  }

然而，这会引发错误和警告：

Error in if (.) AtBatPitchSequence == 1 else { : 
  argument is not interpretable as logical
In addition: Warning message:
In if (.) AtBatPitchSequence == 1 else { :
  the condition has length > 1 and only the first element will be used

我不明白为什么我的论点不能解释为合乎逻辑的。在我看来，它应该评估 AtBatPitchSequence 是否等于 1，然后移至下一行。另外，警告信息是什么意思？如果通过更正我的 if 语句来处理此警告，请不要担心，但我仍然是新手并且正在尝试更好地调试我自己的工作。我通读了这个 Error in if/while (condition) : argument is not interpretable as logical 问题和其他问题，试图找出我的错误，但没有成功。

非常感谢

解决方法

我们可以在 & 中使用 filter 条件

library(dplyr)
firsttwopitches %>%   
   filter(AtBatPitchSequence == 1,PitchType == "FA")

如果我们想保留 'AtBatPitchSequence' 不等于 1 的行，那么添加另一个带有 | 的表达式

firsttwopitches %>% 
    filter((AtBatPitchSequence == 1 & PitchType == "FA")|AtBatPitchSequence != 1)

有两个问题 - 1) if/else 未向量化，2) 与使用 {} 阻塞代码有关，尤其是在管道 (%>%) 中使用时。一个相关的问题还在于在 tidyverse 函数（即 AtBatPitchSequence、mutate 等）之外查找列名 summarise。在这种情况下，我们还需要指定数据 .$AtBatPitchSequence

错误/警告可以通过内置数据集重现

data(iris)
head(iris) %>% 
   if(Species == 'setosa') {
       filter(Petal.Length > 1.5)
    }

if (.) Species == "setosa" else { 中的错误： 论证不能解释为合乎逻辑的 另外： 警告信息： 在 if (.) Species == "setosa" else { : 条件的长度 > 1 并且只使用第一个元素

现在，我们可以通过在 {} 内阻塞来消除错误，但请注意警告仍然存在，因为 if/else 没有被矢量化，这也可能给出错误的输出（下面的输出是正确的，但是这只是因为只有一行满足 TRUE 条件）

head(iris) %>% 
    {if(.$Species == 'setosa') {
        filter(.,Petal.Length > 1.5)
     }}
#  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#1          5.4         3.9          1.7         0.4  setosa

警告信息： 在 if (.$Species == "setosa") { 中： 条件的长度 > 1 并且只使用第一个元素

如果我们在 filter 中使用多个表达式（, 将生成 &）

head(iris) %>% 
    filter(Species == 'setosa',Petal.Length > 1.5)
#  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#1          5.4         3.9          1.7         0.4  setosa
data-mungingdplyrdplyrrr