tidyverse:查找大于多个值的观察值

tidyverse: finding number of observations greater than multiple values

我要计算号码。大于 57 的观察值。这可以通过使用 中的 case_when 函数制作虚拟变量来实现。想知道在不创建虚拟变量的情况下更有效的方法。

library(tidyverse)

dt1 <-  tibble(X = 1:10)

dt1 %>% 
  mutate(
    X1 = case_when(X >= 5 ~ 1, X < 5 ~ 0)
  , X2 = case_when(X >= 7 ~ 1, X < 7 ~ 0)
    ) %>% 
  summarise(across(.cols = c(X1, X2), .fns = sum))
#> # A tibble: 1 x 2
#>      X1    X2
#>   <dbl> <dbl>

#> 1     6     4

可以直接使用summarize

dt1 %>% 
  summarise(X1 = sum(X >= 5),
            X2 = sum(X >= 7))

# A tibble: 1 x 2
     X1    X2
  <int> <int>
1     6     4

如果有多个元素,一个选项也是用map

循环
library(purrr)
library(dplyr)
library(stringr)
imap_dfc(setNames(c(5, 7), str_c("X", 1:2)), ~ dt1 %>%
      summarise(!! .y := sum(X >= .x)))
# A tibble: 1 × 2
     X1    X2
  <int> <int>
1     6     4