我试图创建一个能找到摘要和行数的函数,所以首先我要尝试创建这样的东西:
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
显然我离开这里,但我似乎无法让我的矩阵和载体一起工作。任何帮助表示赞赏!
答案 0 :(得分:4)
也许是这样的:
> 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中每个向量中的观察数量(按照定义)是常数,但就是这样。