r - 使用 start_with 函数和 collapse::fselect 函数

Question

starts_with("O")fromtidyselect适用于functiondplyr::select但不适用于collapse::fselect. 想知道我是否在这里遗漏了一些基本知识。

library(collapse)
library(tidyverse)
wlddev %>% 
  select(starts_with("O")) %>% 
  head()
#>    OECD       ODA
#> 1 FALSE 116769997
#> 2 FALSE 232080002
#> 3 FALSE 112839996
#> 4 FALSE 237720001
#> 5 FALSE 295920013
#> 6 FALSE 341839996

wlddev %>% 
  fselect(starts_with("O")) %>% 
  head()
#> Error:
#> ! `starts_with()` must be used within a *selecting* function.
#> i See <https://tidyselect.r-lib.org/reference/faq-selection-context.html>.

Answer 1

我们可能会使用gvr

library(collapse)
wlddev %>% 
  gvr("^O") %>%
  head
   OECD       ODA
1 FALSE 116769997
2 FALSE 232080002
3 FALSE 112839996
4 FALSE 237720001
5 FALSE 295920013
6 FALSE 341839996

---

fsum可以分组g

fsum(gvr(wlddev, "^O"), g = wlddev[["iso3c"]])
    OECD          ODA
ABW    0    664899998
AFG    0  89252909923
AGO    0  15512219971
ALB    0  10013700017
AND    0           NA
ARE    0    602289998
ARG    0   6415849996
ARM    0   8190379934
ASM    0           NA
ATG    0    420559999
AUS   61           NA
AUT   61           NA
AZE    0   5049070016
BDI    0  17767379852
BEL   61           NA
BEN    0  18904160029
...

---

或者用管子

wlddev %>% 
  gvr("^O") %>%
  fsum(., g = slt(wlddev, iso3c))

-输出

  OECD          ODA
ABW    0    664899998
AFG    0  89252909923
AGO    0  15512219971
ALB    0  10013700017
AND    0           NA
ARE    0    602289998
...

---

或者可以使用

wlddev %>% 
  fgroup_by(iso3c) %>% 
  gvr("^O") %>% 
  fsum

-输出

   iso3c OECD          ODA
1     ABW    0    664899998
2     AFG    0  89252909923
3     AGO    0  15512219971
4     ALB    0  10013700017
5     AND    0           NA
6     ARE    0    602289998
7     ARG    0   6415849996
8     ARM    0   8190379934
9     ASM    0           NA
10    ATG    0    420559999
...