R语言如何从原数据集提取排除数值型列后的分类数据？

正确实现方式 #

你之前的代码无法得到预期结果，是因为setdiff()本身是用于向量求差集的函数，直接传入数据框时会按列表结构比对列内容，而非匹配列名，因此无法实现按列取差集的需求，可通过以下几种方式实现：

方式1：基于已有numdata快速生成（base R写法）

直接对两个数据集的列名求差集，再从原数据中筛选对应列即可：

catdata = data[, setdiff(colnames(data), colnames(numdata))]

方式2：tidyverse 更简洁的写法

如果你使用dplyr包，完全可以不用依赖已生成的numdata，直接筛选非数值列一步得到结果，同时也兼容现有numdata的场景：

# 直接筛选非数值列（推荐，无需依赖已生成的numdata）
catdata = data %>% select(!where(is.numeric))

# 如果基于已有numdata实现：
catdata = data %>% select(-all_of(colnames(numdata)))

方式3：同时生成numdata和catdata的最优写法

如果还没生成numdata，推荐用下面的代码一次性生成两个数据集，逻辑更统一：

library(dplyr)
numdata = data %>% select(where(is.numeric))
catdata = data %>% select(!where(is.numeric))

内容的提问来源于stack exchange，提问作者c.jungc