如何让R语言中glimpse()函数的输出包含列序号？

当然可以实现！当处理包含成百上千变量的数据框时，能直接在glimpse输出里看到列序号确实会方便很多——毕竟按索引选变量时不用再额外查列的位置了。这里有两个实用的方案，你可以根据需求选择：

方案一：自定义带序号的glimpse替代函数 #

这个方法完全按你想要的格式输出，自由度很高，还能根据需要调整显示的样本数量：

library(dplyr)
library(purrr)

# 自定义带列序号的glimpse函数
my_glimpse <- function(df, show_n = 20) {
  # 先输出数据框的基本维度信息
  cat(sprintf("Rows: %d Columns: %d\n", nrow(df), ncol(df)))
  
  # 遍历每一列，生成带序号的输出行
  walk(seq_along(df), function(idx) {
    col_name <- names(df)[idx]
    col_type <- typeof(df[[col_name]])
    # 提取前show_n个样本并拼接成字符串
    col_samples <- df[[col_name]] %>% 
      head(show_n) %>% 
      paste(collapse = ", ")
    
    # 按格式输出
    cat(sprintf("[%d] $ %s <%s> %s...\n", idx, col_name, col_type, col_samples))
  })
}

# 用mtcars测试效果
my_glimpse(mtcars)

这个函数会输出和你示例完全一致的格式，你还可以通过show_n参数调整每列显示的样本数量。

方案二：修改原glimpse的输出（保留原格式） #

如果你更习惯原glimpse的样式，只是想给每列加个序号，可以捕获原glimpse的输出，再手动添加上序号：

library(dplyr)
library(purrr)

glimpse_with_index <- function(df) {
  # 捕获glimpse的完整输出（width=Inf避免截断）
  raw_output <- capture.output(glimpse(df, width = Inf))
  
  # 拆分输出：第一行是维度信息，后面的是列的详情
  dim_line <- raw_output[1]
  col_lines <- raw_output[-1]
  
  # 输出维度信息
  cat(dim_line, "\n")
  
  # 给每一列的行添加序号后输出
  imap(col_lines, function(line, idx) {
    cat(sprintf("[%d] %s\n", idx, line))
  })
}

# 测试效果
glimpse_with_index(mtcars)

这个方法的好处是完全保留原glimpse的类型显示、截断逻辑等，只是额外加上了列序号，适合不想改变原glimpse使用习惯的场景。

小提示 #

如果你的环境里没有安装purrr或者dplyr，也可以用基础R的循环实现，比如把方案一里的walk换成for循环：

my_glimpse_base <- function(df, show_n = 20) {
  cat(sprintf("Rows: %d Columns: %d\n", nrow(df), ncol(df)))
  for (idx in seq_along(df)) {
    col_name <- names(df)[idx]
    col_type <- typeof(df[[col_name]])
    col_samples <- paste(head(df[[col_name]], show_n), collapse = ", ")
    cat(sprintf("[%d] $ %s <%s> %s...\n", idx, col_name, col_type, col_samples))
  }
}

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