无法选择

作者: 易米烊光
发布时间: 2024-12-18 02:18:45 (1月前)
转自：

3 条回复

0#
回复此人
star | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 一种方法是使用匿名函数 </p> <pre> <code> library(dplyr) mpg %>% select_if(function(x) is.character(x) | is.integer(x)) # manufacturer model year cyl trans drv cty hwy fl class # <chr> <chr> <int> <int> <chr> <chr> <int> <int> <chr> <chr> # 1 audi a4 1999 4 auto(l5) f 18 29 p compact # 2 audi a4 1999 4 manual(m5) f 21 29 p compact # 3 audi a4 2008 4 manual(m6) f 20 31 p compact # 4 audi a4 2008 4 auto(av) f 21 30 p compact # 5 audi a4 1999 6 auto(l5) f 16 26 p compact # 6 audi a4 1999 6 manual(m5) f 18 26 p compact # 7 audi a4 2008 6 auto(av) f 18 27 p compact # 8 audi a4 quattro 1999 4 manual(m5) 4 18 26 p compact # 9 audi a4 quattro 1999 4 auto(l5) 4 16 25 p compact #10 audi a4 quattro 2008 4 manual(m6) 4 20 28 p compact # �� with 224 more rows </code> </pre> <P> 或使用 <code> funs </code> </p> <pre> <code> mpg %>% select_if(funs(is.character(.) | is.integer(.))) </code> </pre> </DIV>

编辑
1#
回复此人
甲基蓝 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我们可以使用 <code> ~ </code> 同样 </p> <pre> <code> library(dplyr) mpg %>% select_if(~ is.character(.x)|is.integer(.x)) </code> </pre> <HR /> <P> 或者 <code> inherits </code> </p> <pre> <code> mpg %>% select_if(~ inherits(.x, c("character", "integer"))) </code> </pre> </DIV>

编辑

登录后才能参与评论