R语言tibble自定义打印：如何实现data.table式首尾N行输出效果

实现方案 #

tibble的打印底层由pillar包控制，2.1.0及以上版本的tibble原生支持首尾分段打印，无需额外安装依赖，两种实现方式如下：

1. 临时调用（单次打印生效）

直接在print函数的n参数传入长度为2的整数向量，分别对应头部打印行数、尾部打印行数，搭配你已验证的不截断参数即可匹配data.table的打印效果：

# 前5行+后5行打印，无内容截断，保留列类型
print(td, n = c(5, 5), width = Inf, n_extra = 0)

2. 全局配置（所有tibble打印默认生效）

修改R全局选项，无需每次传参，完全对齐data.table的print(d, n=N)使用习惯：

基础全局配置

直接设置默认打印规则：

options(
  # 行数超过10时启用简略打印
  tibble.print_max = 10,
  # 简略打印时默认输出前5行+后5行
  tibble.print_min = c(5, 5),
  # 不截断列内容
  tibble.width = Inf,
  # 不展示额外未打印的列信息
  tibble.max_extra_cols = 0
)

配置完成后，直接输入tibble对象名或者print(td)即可输出和data.table一致的效果。

自定义打印函数（完全对齐data.table的n参数逻辑）

如果需要支持print(td, n=10)自动拆分前5后5、print(td, n=6)自动拆分前3后3的逻辑，可以重写tibble的打印方法：

print.tbl_df <- function(x, n = 10, ...) {
  total_rows <- nrow(x)
  # 总行数小于等于n时全量打印
  if (total_rows <= n) {
    NextMethod(print, x, n = n, width = Inf, n_extra = 0, ...)
  } else {
    # 总行数大于n时拆分首尾各n/2行打印
    split_k <- floor(n/2)
    NextMethod(print, x, n = c(split_k, split_k), width = Inf, n_extra = 0, ...)
  }
}

注意事项 #

如果执行时发现n参数不支持向量输入，说明你的tibble版本过低，执行以下命令升级即可：

install.packages("tibble")

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