R语言赋值回归系数到数据框时产生大量冗余输出如何解决

suppressMessages()不生效不是用法错了，是你的赋值代码本身的解析逻辑出了问题，才会产生大量控制台输出：
R默认按行识别完整表达式，你贴的代码里第一行赋值语句末尾没有连接运算符，R会直接判定第一行是完整代码：仅把回归的第一个系数（截距项）赋值给sign_pre$model7列。后面两行完全没有被纳入赋值流程，会被R当成需要直接执行、输出结果的独立命令——相当于你手动在控制台运行了两次向量计算，两个长度等于数据行数的计算结果会直接全量打印在控制台，看起来就是满屏的冗余内容。
这类输出是表达式运行后的返回值直接打印，不属于message、warning类的提示信息，suppressMessages()、suppressWarnings()本身就不拦截这类输出，自然达不到你要的效果。

• 首先修正赋值语句的写法，把三个系数对应的线性项用+连接成完整的预测公式，把运算符放在行尾，明确告诉R当前行的表达式还没结束，需要和下一行拼接解析：

sign_pre$model7 <- reg1_model$coefficients[1] +
                   reg1_model$coefficients[2] * sign_pre$length +
                   reg1_model$coefficients[3] * sign_pre$soc

写完运行就不会再有多余输出，赋值结果也是你要的完整预测值，不是只有截距的单列。

• 更稳妥的写法是直接用模型自带的预测函数，不用手动摘系数计算，避免漏项、写错系数位置的问题，只要是R里标准的lm、glm、lme等回归模型对象都支持这个方法：

sign_pre$model7 <- predict(reg1_model, newdata = sign_pre)

• 如果后续遇到其他场景需要强制禁止表达式的返回值打印，可以用invisible()包裹对应代码块，就能让运行结果不自动在控制台输出：

invisible({
  # 这里写需要运行、但不需要打印返回值的代码
})

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