将新列添加到另一个数据帧的新数据框中

Question

我想将一个包含173 rows的新列附加到新的空数据框中，我收到此错误

Error in data.frame(..., check.names = FALSE) : 
  les arguments impliquent des nombres de lignes différents : 173, 0

我的预期输出是一个数据帧“dataint”，其中所有类列都是我原始数据帧“data”的整数

dataint<-data.frame()
    for (i in 1:ncol(data))
      if(class(data[[i]])=="integer")
        {   dataint<-cbind(dataint,data[[i]])
       }

Answer 1

我们可以使用select_if

中的dplyr

library(dplyr)
data %>%
  select_if(is.integer)