R语言中实现多summary()结果带换行输出的问题求助

错误原因分析 #

1. 数据集赋值错误：df = data(cars) 写法有误，data() 函数仅负责将cars数据集加载到当前环境，不会返回数据框，导致df被赋值为NULL，后续处理自然出错。
2. 输出函数混用：cat() 本身会直接输出内容，但它的返回值是NULL，你再嵌套一层print()，就会额外打印NULL；同时因为df是NULL，summary(df[col])返回的是无效的类型信息，才出现了1 character character这类异常输出。

修正后的代码 #

# 直接使用加载好的cars数据框，或显式赋值
df <- cars

for (col in c('speed', 'dist')) {
    # 先输出换行，再打印对应列的统计摘要
    cat('\n')
    print(summary(df[[col]]))
}

也可以用更简洁的写法，无需嵌套函数：

df <- cars

for (col in c('speed', 'dist')) {
    summary(df[[col]])
    cat('\n')
}

关键说明 #

• df[[col]] 用于提取单列向量，相比df[col]（返回单列数据框），它的summary输出格式更符合你的预期。
• 分开使用cat('\n')和print()，避免函数嵌套导致的返回值干扰；直接打印summary后加换行也能达到效果，因为summary默认会输出内容。

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