r - Rcross 仅找到正值或仅负值 tidyverse
问题描述
在 dplyr Column-wise 操作中有这个例子:
df <- tibble(x = c("a", "b"), y = c(1, 1), z = c(-1, 1))
# Find all rows where EVERY numeric variable is greater than zero
df %>% filter(across(where(is.numeric), ~ .x > 0))
#> # A tibble: 1 x 3
#> x y z
#> <chr> <dbl> <dbl>
#> 1 b 1 1
如果我们稍微改变一下小标题:
df <- tibble(x = c("a", "b", "c"), y = c(1, 1, -1), z = c(-1, 1, -1))
我们想要为两列获取负值或正值,我们需要命名列:
df %>% filter((y > 0 & z > 0) | (y < 0 & z < 0))
#> # A tibble: 2 x 3
#> x y z
#> <chr> <dbl> <dbl>
#> 1 b 1 1
#> 2 c -1 -1
如何across()
做到这一点?
df %>% filter(across(where(is.numeric), ~ .x > 0 | .x < 0))
#> # A tibble: 3 x 3
#> x y z
#> <chr> <dbl> <dbl>
#> 1 a 1 -1
#> 2 b 1 1
#> 3 c -1 -1
解决方案
我们必须从一组条件句中检查全部TRUE
或全部,例如,和。现在 -FALSE
c(T, T)
c(T, F)
c(F, F)
if_all
将过滤c(T, T)
!if_any
将再次过滤c(T, T)
,!
即剩余值的否定- 这两个将由一个
|
ie OR加入 - 因此,我们将只有
c(T, T)
&c(F, F)
因此,这会做
df %>% filter(if_all(where(is.numeric), ~ .x > 0) | !if_any(where(is.numeric), ~ .x < 0))
# A tibble: 2 x 3
x y z
<chr> <dbl> <dbl>
1 b 1 1
2 c -1 -1
选择
df %>% filter(if_all(where(is.numeric), ~ .x > 0) | across(where(is.numeric), ~ .x < 0))
# A tibble: 2 x 3
x y z
<chr> <dbl> <dbl>
1 b 1 1
2 c -1 -1
让我们看看更大的例子
set.seed(201)
df <- data.frame(A = LETTERS[1:10], x = rnorm(10), y = rnorm(10), z = -1*rnorm(10))
> df
A x y z
1 A 0.28606069 0.69329617 0.24400084
2 B -0.34454603 0.22380936 0.98825314
3 C 0.32576373 0.39845694 -1.24206048
4 D -1.69658097 1.01347438 1.68266603
5 E -1.28548252 -0.64785307 -1.44289063
6 F -0.07503189 0.64845271 0.46543975
7 G 0.26693735 0.20734270 -0.69366150
8 H 0.05593404 0.06439014 0.08772557
9 I -2.30403431 0.66938092 0.95508038
10 J 0.18900414 -0.37425445 -0.17010088
> df %>% filter(if_all(where(is.numeric), ~ .x > 0) | !if_any(where(is.numeric), ~ .x < 0))
A x y z
1 A 0.28606069 0.69329617 0.24400084
2 E -1.28548252 -0.64785307 -1.44289063
3 H 0.05593404 0.06439014 0.08772557
推荐阅读
- jenkins - 将 jenkins 与 GoCD 集成
- javascript - 如何优化 useReducer 中对象数组的更新?
- python - 'TikTokApi' 对象没有属性'region'
- javascript - 跟进:我有 2 个单选按钮,我想将不同的 ajax 页面加载到 div 元素中,具体取决于选择哪个
- python - 在不使用熊猫的情况下逐行读取后清理文本文件数据
- salesforce - 限制休假用户的访问
- heroku - 如何在两个 Heroku 域之间设置 cookie?
- c++ - 将指向部分构造对象的指针转换为指向基类的指针是否合法?
- google-sheets - 将 Google 电子表格中的联系人添加到 Google 通讯录时出错
- android - 如何使用翻译动画移动图像?(将图像从一个位置移动到另一个位置)