Положить вывод описывающей функции в таблицу 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" в немецкой и английской sh версии. Я хочу поместить результаты функции описать (см. Ниже) этих двух переменных в презентабельную таблицу. Желательно одну таблицу для обеих переменных, если это возможно.

> 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 [edit: похоже, что вы используете библиотеку из пакета psych], но вы можете создать простую, красивую таблицу, используя kable функция от knitr:

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)