Помещение вывода функции описания в таблицу R

> 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(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

Я благодарен за вашу помощь :)


person nash    schedule 10.01.2020    source источник


Ответы (1)


Я не совсем уверен, в какой библиотеке находится функция describe [отредактировать: похоже, вы используете библиотеку из пакета 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)
person krfurlong    schedule 10.01.2020
comment
Спасибо за помощь! К сожалению, это дает мне ошибку, что указанное имя строки имеет неправильную длину. Вы знаете, о чем идет речь? - person nash; 10.01.2020
comment
попался - я отредактировал свой ответ. В будущем постарайтесь предоставить все подробности о любых конкретных функциях, которые вы используете. Я не знал, например, что describe был в психологическом пакете, что усложняло ответ на вопрос в первый раз. - person krfurlong; 10.01.2020