dplyr-filter：限制可用于生成逻辑的函数？

正如我所期望的，我可以更普遍地使用函数

stru detect（names，“Lotus”）

来过滤

mtcars

：

> str_detect("Porsche 914-2", "Lotus")
[1] FALSE
> str_detect("Lotus Europa", "Lotus")
[1] TRUE

正如预期的那样，我也得到了

> filter(mtcars, str_detect(names, "Lotus"))
   mpg cyl disp  hp drat    wt qsec vs am gear carb        names
1 30.4   4 95.1 113 3.77 1.513 16.9  1  1    5    2 Lotus Europa

更一般地说，

any（str_detect（*mtcars[“names”]*的任何元素，如.character（0:9））

总是产生预期的结果。所以我希望能够使用第二个函数来过滤

mtcars

。然而，我得到：

> any(str_detect("Pontiac Firebird", as.character(0:9)))
[1] FALSE
> any(str_detect("Fiat X1-9", as.character(0:9)))
[1] TRUE

我没想到会有这样的警告，也没想到数据集中还有没有数字的名字，这表明有些事情并没有按预期进行

我从

dplyr

中获得了与其他函数类似的行为，例如

mutate

：基于

str\u detect

的第一个逻辑条件仅按预期工作，但以

any（str\u detect（

开始的第二个逻辑条件不工作

---

有人能解释为什么第二个条件不起作用吗？在生成逻辑for

过滤器（或生成新数据for
mutate
）的函数中，列名称的“深度”是否有限制？
问题是
as。字符（0:9）
是长度为10的向量

> filter(mtcars, any(str_detect(names, as.character(0:9))))
    mpg cyl  disp  hp drat    wt  qsec vs am gear carb               names
1  21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4           Mazda RX4
2  21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4       Mazda RX4 Wag
3  22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1          Datsun 710
4  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1      Hornet 4 Drive
5  18.7   8 360.0 175 3.15 3.440 17.02  0  0    3    2   Hornet Sportabout
6  18.1   6 225.0 105 2.76 3.460 20.22  1  0    3    1             Valiant
7  14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4          Duster 360
8  24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2           Merc 240D
9  22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2            Merc 230
10 19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4            Merc 280
11 17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4           Merc 280C
12 16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3          Merc 450SE
13 17.3   8 275.8 180 3.07 3.730 17.60  0  0    3    3          Merc 450SL
14 15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3         Merc 450SLC
15 10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4  Cadillac Fleetwood
16 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4 Lincoln Continental
17 14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4   Chrysler Imperial
18 32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1            Fiat 128
19 30.4   4  75.7  52 4.93 1.615 18.52  1  1    4    2         Honda Civic
20 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4    1      Toyota Corolla
21 21.5   4 120.1  97 3.70 2.465 20.01  1  0    3    1       Toyota Corona
22 15.5   8 318.0 150 2.76 3.520 16.87  0  0    3    2    Dodge Challenger
23 15.2   8 304.0 150 3.15 3.435 17.30  0  0    3    2         AMC Javelin
24 13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4          Camaro Z28
25 19.2   8 400.0 175 3.08 3.845 17.05  0  0    3    2    Pontiac Firebird
26 27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1           Fiat X1-9
27 26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2       Porsche 914-2
28 30.4   4  95.1 113 3.77 1.513 16.90  1  1    5    2        Lotus Europa
29 15.8   8 351.0 264 4.22 3.170 14.50  0  1    5    4      Ford Pantera L
30 19.7   6 145.0 175 3.62 2.770 15.50  0  1    5    6        Ferrari Dino
31 15.0   8 301.0 335 3.54 3.570 14.60  0  1    5    8       Maserati Bora
32 21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2          Volvo 142E
Warning message:
In stri_detect_regex(string, pattern, opts_regex = opts(pattern)) :
  longer object length is not a multiple of shorter object length

str\u detect
在
string
和
pattern
上进行矢量化，所以当您这样做时

length(as.character(0:9))
#[1] 10

名称
的前10个值分别与
0:9
匹配，然后剩余值再次与
0:9
匹配，因此您会收到警告

较长的对象长度不是较短对象长度的倍数

你可能在尝试的是

filter(mtcars, str_detect(names, as.character(0:9)))

在哪里

它是长度为1的字符串，在所有名称中搜索相同的模式，如。字符（0:9）

是长度为10的向量。检查长度为1的向量时（单个字符串）与此相反，然后用

any

换行，您可以得到您想要的。但是，当您开始比较长度为32的向量和长度为10的向量时，您会遇到问题。与其使用字符，不如尝试一些正则表达式？

过滤器（mtcars，str_detect（名称，[0-9]”）

非常感谢您的快速回答。我以为我是在处理这个问题，按照您在回答中的建议，使用

过滤器（mtcars，*any*（str_detect（names，as.character（0:9）））

而不是

过滤器（mtcars，str_detect（names，as.character（0:9））

。any（）位是否不足以“去矢量化”逻辑？我猜下面@Adam Sampson的答案就是答案。@MartinVanderLinden

any

对整个向量只返回一个

TRUE/FALSE

。是的，我最终通过Adam Sampson的答案得到了答案，谢谢。非常好的解决方案和你的答案帮助我更好地理解了

过滤器的工作原理：）
filter(mtcars, str_detect(names, as.character(0:9)))

filter(mtcars, str_detect(names, paste0(as.character(0:9), collapse = "|")))

#    mpg cyl  disp  hp drat    wt  qsec vs am gear carb          names
#1  21.0   6 160.0 110 3.90 2.620 16.46  0  1    4    4      Mazda RX4
#2  21.0   6 160.0 110 3.90 2.875 17.02  0  1    4    4  Mazda RX4 Wag
#3  22.8   4 108.0  93 3.85 2.320 18.61  1  1    4    1     Datsun 710
#4  21.4   6 258.0 110 3.08 3.215 19.44  1  0    3    1 Hornet 4 Drive
#5  14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4     Duster 360
#6  24.4   4 146.7  62 3.69 3.190 20.00  1  0    4    2      Merc 240D
#7  22.8   4 140.8  95 3.92 3.150 22.90  1  0    4    2       Merc 230
#8  19.2   6 167.6 123 3.92 3.440 18.30  1  0    4    4       Merc 280
#9  17.8   6 167.6 123 3.92 3.440 18.90  1  0    4    4      Merc 280C
#10 16.4   8 275.8 180 3.07 4.070 17.40  0  0    3    3     Merc 450SE
#11 17.3   8 275.8 180 3.07 3.730 17.60  0  0    3    3     Merc 450SL
#12 15.2   8 275.8 180 3.07 3.780 18.00  0  0    3    3    Merc 450SLC
#13 32.4   4  78.7  66 4.08 2.200 19.47  1  1    4    1       Fiat 128
#14 13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4     Camaro Z28
#15 27.3   4  79.0  66 4.08 1.935 18.90  1  1    4    1      Fiat X1-9
#16 26.0   4 120.3  91 4.43 2.140 16.70  0  1    5    2  Porsche 914-2
#17 21.4   4 121.0 109 4.11 2.780 18.60  1  1    4    2     Volvo 142E

paste0(as.character(0:9), collapse = "|") #gives
#[1] "0|1|2|3|4|5|6|7|8|9"