我试图创建一个可以找到摘要和行数的函数，所以首先我试图创建这样的东西：
G <- summary(mtcars)
H <- nrow(mtcars)
I <- ("# of Rows")
J <- (c(I,H))
K <- print(G,J)
K
我收到以下错误：
Error in format.default(unclass(x), digits = digits, justify = justify) :
invalid 'digits' argument
In addition: Warning message:
In format.default(unclass(x), digits = digits, justify = justify) :
NAs introduced by coercion
> K
Error: object 'K' not found
我想要得到的是：
V1
Min. : 19.35
1st Qu. : 61.22
Median : 126.76
Mean : 212.96
3rd Qu. : 158.13
Max. : 1500.00
# of Rows: 367
显然我离这里很远，但是我似乎无法让矩阵和向量一起工作。任何帮助表示赞赏！
也许是这样的：
> print(rbind(summary(mtcars), paste0("Rows. :", nrow(mtcars))), quote = FALSE)
mpg cyl disp hp drat wt
Min. :10.40 Min. :4.000 Min. : 71.1 Min. : 52.0 Min. :2.760 Min. :1.513
1st Qu.:15.43 1st Qu.:4.000 1st Qu.:120.8 1st Qu.: 96.5 1st Qu.:3.080 1st Qu.:2.581
Median :19.20 Median :6.000 Median :196.3 Median :123.0 Median :3.695 Median :3.325
Mean :20.09 Mean :6.188 Mean :230.7 Mean :146.7 Mean :3.597 Mean :3.217
3rd Qu.:22.80 3rd Qu.:8.000 3rd Qu.:326.0 3rd Qu.:180.0 3rd Qu.:3.920 3rd Qu.:3.610
Max. :33.90 Max. :8.000 Max. :472.0 Max. :335.0 Max. :4.930 Max. :5.424
Rows. :32 Rows. :32 Rows. :32 Rows. :32 Rows. :32 Rows. :32
qsec vs am gear carb
Min. :14.50 Min. :0.0000 Min. :0.0000 Min. :3.000 Min. :1.000
1st Qu.:16.89 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:3.000 1st Qu.:2.000
Median :17.71 Median :0.0000 Median :0.0000 Median :4.000 Median :2.000
Mean :17.85 Mean :0.4375 Mean :0.4062 Mean :3.688 Mean :2.812
3rd Qu.:18.90 3rd Qu.:1.0000 3rd Qu.:1.0000 3rd Qu.:4.000 3rd Qu.:4.000
Max. :22.90 Max. :1.0000 Max. :1.0000 Max. :5.000 Max. :8.000
Rows. :32 Rows. :32 Rows. :32 Rows. :32 Rows. :32
考虑到data.frame中每个向量的观察次数（根据定义）是恒定的，我不确定如何为每个变量设置一定数量的值为什么有用，但是确实如此。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句