基于不大于且不小于R的过滤器或子集

?'>' 没有什么比 !> !>= !between() 从 dplyr !(x[x >= left & x <= right]) 不起作用。。。

require(dplyr)
#> Loading required package: dplyr
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
require(ggplot2)
#> Loading required package: ggplot2
x <- seq(-5, 5, length.out = 1000)
d <- tibble(X = x, Y = x^3)

### THIS WORKS
(d %>% 
  filter(!between(X, -2, 2)) -> d_sub)
#> # A tibble: 600 x 2
#>        X     Y
#>    <dbl> <dbl>
#>  1 -5    -125 
#>  2 -4.99 -124.
#>  3 -4.98 -124.
#>  4 -4.97 -123.
#>  5 -4.96 -122.
#>  6 -4.95 -121.
#>  7 -4.94 -121.
#>  8 -4.93 -120.
#>  9 -4.92 -119.
#> 10 -4.91 -118.
#> # ... with 590 more rows

### PLOT TO CONFIRM
(d_sub%>% 
  ggplot(aes(X,Y)) + geom_point())

^{于2020-01-30由 reprex package (第0.3.0版)}