如何将描述函数输出写入R中的csv？

Question

我有一些数据，比如说 R 中的 mtcars 数据集，我想将 describe 函数输出以良好格式导出到 csv 文件。

对于描述函数输出，我们可以使用：

install.packages(Hmisc)  
library(Hmisc)
mt_data = mtcars
x = describe(mt_data)

尝试写入 CSV 文件 1：

write.csv(x, file="names22.csv",row.names = F)    

as.data.frame.default(x[[i]], optional = TRUE, stringsAsFactors = stringsAsFactors) 中的错误： 无法将“描述”类强制转换为 data.frame

尝试2

data = mtcars  
x = describe(data)
write.csv(t(as.matrix(x)), file="name2.csv") 

但是上面的命令给出的输出格式很奇怪。

预期输出

        x1   x2  x3  x4 
mpg     12   23  758 23
cyl     2    23  23  64
disp    2    31  32  53
xyz     4    21  32  23
skjf    8    21  23  23

上述格式是我试图在 csv 文件中写入的格式。

Answer 1

> library(psych)    
> mt_dat <- describeBy(mt_data)
> mt_dat
     vars  n   mean     sd median trimmed    mad   min    max  range  skew kurtosis    se
mpg     1 32  20.09   6.03  19.20   19.70   5.41 10.40  33.90  23.50  0.61    -0.37  1.07
cyl     2 32   6.19   1.79   6.00    6.23   2.97  4.00   8.00   4.00 -0.17    -1.76  0.32
disp    3 32 230.72 123.94 196.30  222.52 140.48 71.10 472.00 400.90  0.38    -1.21 21.91
hp      4 32 146.69  68.56 123.00  141.19  77.10 52.00 335.00 283.00  0.73    -0.14 12.12
drat    5 32   3.60   0.53   3.70    3.58   0.70  2.76   4.93   2.17  0.27    -0.71  0.09
wt      6 32   3.22   0.98   3.33    3.15   0.77  1.51   5.42   3.91  0.42    -0.02  0.17
qsec    7 32  17.85   1.79  17.71   17.83   1.42 14.50  22.90   8.40  0.37     0.34  0.32
vs      8 32   0.44   0.50   0.00    0.42   0.00  0.00   1.00   1.00  0.24    -2.00  0.09
am      9 32   0.41   0.50   0.00    0.38   0.00  0.00   1.00   1.00  0.36    -1.92  0.09
gear   10 32   3.69   0.74   4.00    3.62   1.48  3.00   5.00   2.00  0.53    -1.07  0.13
carb   11 32   2.81   1.62   2.00    2.65   1.48  1.00   8.00   7.00  1.05     1.26  0.29