R语言lm函数对比错误：移除无变异变量后仍报错求助

这个报错的核心是你的自变量集合里仍存在仅1个水平的因子变量——你说“其余变量均有唯一值”应该是表述有误，大概率是某个变量被识别为因子，但所有观测值的取值完全一致，或是误将单一取值的数值型变量转成了因子。

以下是具体排查和修复步骤：

• 先排查所有自变量的类型与取值多样性：
  执行这段代码（把your_data换成你的数据框名，把var1, var2,...替换成你用到的自变量列名）：

  lapply(your_data[, c("var1", "var2", "var3")], 
         function(x) if (is.factor(x)) nlevels(x) else length(unique(x)))
  

  输出结果里，值为1的变量就是问题根源。
• 针对问题变量的处理：
  • 如果该变量是因子且仅1个水平：直接从回归公式中移除它，因为单一水平的分类变量对回归没有解释力。
  • 如果该变量本应是数值型却被误转成因子：先转成字符再转数值（避免因子水平编码干扰），比如：

    your_data$problem_var <- as.numeric(as.character(your_data$problem_var))
    

举个实际场景的例子：假设你的回归公式是lm(price ~ age + size + type, data=house_data)，先跑排查代码确认type是否只有1个水平，要是的话，要么删掉type，要么修正它的类型后再跑回归。

内容的提问来源于stack exchange，提问作者lisa