是否可以更改数据中的设置.那么默认情况下只打印10行,只打印适合屏幕的列?就像tibble df一样.

我通常在笔记本电脑上工作,希望避免以下示例中的输出.

library(data.table)
dt_table <- as.data.table(mtcars)
dt_table 

输出:


dt_table
     mpg cyl  disp  hp drat    wt  qsec vs am gear
 1: 21.0   6 160.0 110 3.90 2.620 16.46  0  1    4
 2: 21.0   6 160.0 110 3.90 2.875 17.02  0  1    4
 3: 22.8   4 108.0  93 3.85 2.320 18.61  1  1    4
 4: 21.4   6 258.0 110 3.08 3.215 19.44  1  0    3
 5: 18.7   8 360.0 175 3.15 3.440 17.02  0  0    3
 6: 18.1   6 225.0 105 2.76 3.460 20.22  1  0    3
 7: 14.3   8 360.0 245 3.21 3.570 15.84  0  0    3
 8: 24.4   4 146.7  62 3.69 3.190 20.00  1  0    4
 9: 22.8   4 140.8  95 3.92 3.150 22.90  1  0    4
10: 19.2   6 167.6 123 3.92 3.440 18.30  1  0    4
11: 17.8   6 167.6 123 3.92 3.440 18.90  1  0    4
12: 16.4   8 275.8 180 3.07 4.070 17.40  0  0    3
13: 17.3   8 275.8 180 3.07 3.730 17.60  0  0    3
14: 15.2   8 275.8 180 3.07 3.780 18.00  0  0    3
15: 10.4   8 472.0 205 2.93 5.250 17.98  0  0    3
16: 10.4   8 460.0 215 3.00 5.424 17.82  0  0    3
17: 14.7   8 440.0 230 3.23 5.345 17.42  0  0    3
18: 32.4   4  78.7  66 4.08 2.200 19.47  1  1    4
19: 30.4   4  75.7  52 4.93 1.615 18.52  1  1    4
20: 33.9   4  71.1  65 4.22 1.835 19.90  1  1    4
21: 21.5   4 120.1  97 3.70 2.465 20.01  1  0    3
22: 15.5   8 318.0 150 2.76 3.520 16.87  0  0    3
23: 15.2   8 304.0 150 3.15 3.435 17.30  0  0    3
24: 13.3   8 350.0 245 3.73 3.840 15.41  0  0    3
25: 19.2   8 400.0 175 3.08 3.845 17.05  0  0    3
26: 27.3   4  79.0  66 4.08 1.935 18.90  1  1    4
27: 26.0   4 120.3  91 4.43 2.140 16.70  0  1    5
28: 30.4   4  95.1 113 3.77 1.513 16.90  1  1    5
29: 15.8   8 351.0 264 4.22 3.170 14.50  0  1    5
30: 19.7   6 145.0 175 3.62 2.770 15.50  0  1    5
31: 15.0   8 301.0 335 3.54 3.570 14.60  0  1    5
32: 21.4   4 121.0 109 4.11 2.780 18.60  1  1    4


EDIT:

我找到了部分解决方案:


options(datatable.print.nrows=5,
        datatable.print.trunc.cols = T)

这对我很有用.有人知道如何分别控制n个顶排和底排的数量吗?上面的选项将打印5个顶部/5个底部行——如果我想要顶部10个,底部2个呢?可能吗?

推荐答案

我们可以用tidytable美元

tidytable::as_tidytable(dt_table) 

-输出

# A tidytable: 32 × 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
 6  18.1     6  225    105  2.76  3.46  20.2     1     0     3     1
 7  14.3     8  360    245  3.21  3.57  15.8     0     0     3     4
 8  24.4     4  147.    62  3.69  3.19  20       1     0     4     2
 9  22.8     4  141.    95  3.92  3.15  22.9     1     0     4     2
10  19.2     6  168.   123  3.92  3.44  18.3     1     0     4     4
# … with 22 more rows

这也将保持data.table

> str(tidytable::as_tidytable(dt_table) )
Classes ‘tidytable’, ‘data.table’ and 'data.frame': 32 obs. of  11 variables:
 $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
 $ cyl : num  6 6 4 6 8 6 8 4 4 6 ...
 $ disp: num  160 160 108 258 360 ...
 $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
 $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
 $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
 $ qsec: num  16.5 17 18.6 19.4 17 ...
 $ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
 $ am  : num  1 1 1 0 0 0 0 0 0 0 ...
 $ gear: num  4 4 4 3 3 3 3 4 4 4 ...
 $ carb: num  4 4 1 1 2 1 4 2 2 4 ...
 - attr(*, ".internal.selfref")=<externalptr> 

R相关问答推荐

矩阵%*%矩阵中的错误:需要数字/复杂矩阵/向量参数

根据多个条件增加y轴高度以适应geom_text标签

在R中为马赛克图中的每个字段着色

标识R中多个列中缺少的唯一值

R中的时间序列(Ts)函数计数不正确

在rpart. plot或fancyRpartPlot中使用带有下标的希腊字母作为标签?

在R中按行按列范围查找最大值的名称

如何通过匹配R中所有可能的组合来从宽到长旋转多个列?

基于Key->Value数据帧的基因子集相关性提取

我如何go 掉盒子图底部的数字?

自动STAT_SUMMARY统计与手动标准误差之间的差异

在使用具有Bray-Curtis相似性的pvCluust时计算p值

提高圣彼得堡模拟的速度

如何删除R中除数字元素以外的所有元素

将工作目录子文件夹中的文件批量重命名为顺序

我是否可以使用多个变异项来构建顺序列(标记多个问题)

在R中的数据框上使用Apply()函数时,如何保留非数字列?

替换在以前工作的代码中有x行&q;错误(geom_sf/gganimate/dow_mark)

子样本间系数检验的比较

Gggvenn为Venn增加了不存在的价值