λμμ λ€μκ³Ό κ°μ΅λλ€.
> d <- tbl_df(data.frame(xxx = 1:2, yyy = 1:2, bxx = 1:2, bbb = 1:2))
> d %>% select(starts_with('nonsense'))
Source: local data frame [2 x 4]
xxx yyy bxx bbb
1 1 1 1 1
2 2 2 2 2
> d %>% select(ends_with('nonsense'))
Source: local data frame [2 x 4]
xxx yyy bxx bbb
1 1 1 1 1
2 2 2 2 2
> d %>% select(matches('nonsense'))
Source: local data frame [2 x 4]
xxx yyy bxx bbb
1 1 1 1 1
2 2 2 2 2
> d %>% select(contains('nonsense'))
Source: local data frame [2 x 4]
xxx yyy bxx bbb
1 1 1 1 1
2 2 2 2 2
λΆλͺ ν select ν¨μλ λ°μ΄ν° νλ μμ λͺ¨λ μ΄μ λ°ννμ§ μμμΌν©λλ€. μ μ©ν λ©μμ§μ ν¨κ» μ€λ₯λ₯Ό λ°μ μν€κ±°λ λΉ λ°μ΄ν° νλ μμ λ°νν΄μΌν©λλ€. μ΄λ κ²μ΄ λ λμμ§ μ λͺ¨λ₯΄κ² μ΅λλ€.
λ΄κ° λ³Ό μ μλ―μ΄ λ¬Έμ λ select_vars_q
ν¨μμ select_funs
λΌλ ν¨μ λͺ©λ‘μ μμ΅λλ€. κ±°κΈ°μμ μ€λ₯λ₯Ό ν¬μ°©νκ³ κ·Έμ λ°λΌ 무μμ λ°νν μ§ κ²°μ ν΄μΌν©λλ€. ν 리νμ€νΈλ₯Ό μ μΆνκ²λμ΄ κΈ°μμ§λ§ κ°μ₯ μ μ ν λ°ν κ°μ΄ 무μμ΄λΌκ³ μκ°νλμ§ λ£μ§ μκ³ μμ
μνκ³ μΆμ§λ μμ΅λλ€. :)
"Failed to select any columns"μ κ°μ μ€λ₯κ° λ°μν΄μΌνλ€κ³ μκ°ν©λλ€. λν select(mtcars, -(mpg:carb))
μ κ°μ μΌμ΄μ€λ₯Ό μ²λ¦¬ν΄μΌν©λλ€.
λ©μλ. μΌμ£ΌμΌ μ λλ©΄ ν 리νμ€νΈλ₯Ό 보λ΄κ² μ΅λλ€. ν΄μΌ ATM.
μ΄κ²μ΄ κ΄λ ¨ λ¬Έμ μΈμ§ νμ€νμ§ μμ§λ§ λ€μ λ΄μ©μ΄ μΌμΉνμ§ μλ κ² κ°μ΅λλ€.
> data_frame(a=1, ba=1) %>% select(starts_with("a"), ends_with("b")) %>% names
character(0)
>
> data_frame(a=1, ab=1) %>% select(starts_with("a"), ends_with("b")) %>% names
[1] "a" "ab"
κ°μ₯ μ μ©ν λκΈ
μ΄κ²μ΄ κ΄λ ¨ λ¬Έμ μΈμ§ νμ€νμ§ μμ§λ§ λ€μ λ΄μ©μ΄ μΌμΉνμ§ μλ κ² κ°μ΅λλ€.