Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- df <- data.frame(foo = runif(10), bar = runif(10), boo = runif(10))
- # bar boo foo
- # 1 0.9561519 0.2152603 0.90986454
- # 2 0.9971676 0.8101082 0.78158207
- # 3 0.6211555 0.9281131 0.59828786
- # 4 0.2332080 0.6063427 0.88131253
- # 5 0.6572534 0.3698642 0.61227246
- # 6 0.6940809 0.1464231 0.30366349
- # 7 0.3924425 0.3706134 0.05930352
- # 8 0.7918689 0.8808447 0.90571744
- # 9 0.2553619 0.9632559 0.52549238
- # 10 0.3772701 0.7657140 0.05102249
- df %>%
- select(intersect(starts_with("b"), ends_with("oo")))
- # boo
- # 1 0.2152603
- # 2 0.8101082
- # 3 0.9281131
- # 4 0.6063427
- # 5 0.3698642
- # 6 0.1464231
- # 7 0.3706134
- # 8 0.8808447
- # 9 0.9632559
- # 10 0.7657140
- df %>%
- select(-ends_with("oo"))
- # bar
- # 1 0.9561519
- # 2 0.9971676
- # 3 0.6211555
- # 4 0.2332080
- # 5 0.6572534
- # 6 0.6940809
- # 7 0.3924425
- # 8 0.7918689
- # 9 0.2553619
- # 10 0.3772701
- df %>%
- select(intersect(starts_with("b"), -ends_with("oo")))
- # data frame with 0 columns and 10 rows
Add Comment
Please, Sign In to add comment