r - 使用 Print( ) 函数仅显示数据框中某列的某些行

Question

我试图只打印 tibble 数据框的前 45 行:

print( data_frame_name, n = 45) 

这将返回我的 DF 的前 45 行。

但是，当我尝试使用美元符号运算符“$”指定一列时

print( data_frame_name$column_name, n = 45) 

R 给了我一条错误消息“无效的‘na.print’规范”，是不是我遗漏了什么？

我会尝试一种变通方法，但问题是我使用“$”和 print()。

Answer 1

print 有很多方法(也取决于加载的包)，print 方法是根据 class 调度的数据集。如果我们有一个 tibble 对象，那么 print.tbl 被调度并且它有 n 选项，而如果对象不是 tibble，使用了不同的方法。当我们提取一列时，它是一个vector。 head 可能更通用

head(data_frame_name$column_name, n = 45)

---

可以用mtcars复制

print(as_tibble(mtcars), n = 5)
# A tibble: 32 x 11
#    mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb
#  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#1  21       6   160   110  3.9   2.62  16.5     0     1     4     4
#2  21       6   160   110  3.9   2.88  17.0     0     1     4     4
#3  22.8     4   108    93  3.85  2.32  18.6     1     1     4     1
#4  21.4     6   258   110  3.08  3.22  19.4     1     0     3     1
#5  18.7     8   360   175  3.15  3.44  17.0     0     0     3     2
# … with 27 more rows

之所以有效，是因为 print.tbl 有 n 选项

getAnywhere('print.tbl')
function (x, ..., n = NULL, width = NULL, n_extra = NULL) 
{
    cli::cat_line(format(x, ..., n = n, width = width, n_extra = n_extra))
    invisible(x)
}

而 print.data.frame 的参数没有

args(print.data.frame)
#function (x, ..., digits = NULL, quote = FALSE, right = TRUE, 
#row.names = TRUE, max = NULL) 

print.default 也没有

args(print.default)
#function (x, digits = NULL, quote = TRUE, na.print = NULL, print.gap = NULL, 
#    right = FALSE, max = NULL, width = NULL, useSource = TRUE, 
#    ...)