[R]_如何按条件提取列名

        这一次讲一个很简单的问题，就是R里如何按条件提取列名。我们都知道用filter()可以筛选行，那么我们如何筛选列，并按条件提取呢，这里就要用到select_if()函数。

        这里还是以著名的iris数据集为例，数据集长这样。

       这里为了方便，我们保留只有数值的列，也就是前四列，但在这里，我们不用粗暴的iris=iris[,1:4]，我们改用select_if()函数。

iris=iris%>%select_if(is.numeric)

        这其实就是用select_if()加了个逻辑判断就选出了我们需要的列。然后我们进行下一步，设置一个任务，我们要提取第一行数值大于3的列的列名，并用“，”隔开。

library(dplyr)
library(stringr)

data_1=iris%>%select_if(.[1,]>3)%>%
              names()%>%
              str_c(.,collapse=',')

        这时候我们取出来的data_1就是这样。

        所以这次的内容很简单，就是用select_if()加上str_c()就可以根据行的条件筛选出对应的列的列名。