将 describe 函数的输出放入 table R

Question

> structure(dat_de$total_all)
 [1] 11 11  9  6  9 15 10  6 11 10 10  9  7 13  7  5  5  8 10 14  9 10 13  6 10 11 12 22 11  1  7  9 12  7  7 11  9  7 15 10  6 10
[43]  8 10  9  8 14  5 10 12 14  9 10 18  8  8 15

> structure(dat_en$total_all)
 [1] 25 10 12 17 10 11 11  9  9 25 14 10 13 22 13 10 11 15 20 11  9 15  9 14 10 19 10  9  8 14  4 18 16  7 10 13  9 11 12

这是我的德语和英语版本的变量 "Total_all"。我想把这两个变量的describe函数（见下文）的结果放在一个presentabletable中。如果可能的话，两个变量最好是一个 table。

> describe(dat_de$total_all)
   vars  n mean   sd median trimmed  mad min max range skew kurtosis   se
X1    1 57 9.81 3.45     10    9.62 2.97   1  22    21 0.73     1.81 0.46
> describe(dat_en$total_all)
   vars  n  mean   sd median trimmed  mad min max range skew kurtosis   se
X1    1 39 12.69 4.69     11   12.24 2.97   4  25    21 1.01     0.61 0.75

感谢您的帮助:)

Answer 1

我不太确定 describe 函数在哪个库中 [编辑：看起来你使用的是 psych 包中的那个] 但你可以做一个简单，漂亮的使用 knitr:

中的 kable 函数查找 table

library(knitr)
library(psych)
de_dat_descr <- data.frame(describe(dat_de$total_all), row.names = "de_dat_descr")
en_dat_descr <- data.frame(describe(dat_en$total_all), row.names = "en_dat_descr")

dat.df <- t(rbind.data.frame(de_dat_descr, en_dat_descr))
kable(dat.df)

将 describe 函数的输出放入 table R

Putting output of describe function in table R

r

describe