Форматирование таблиц в R Markdown для экспорта в документ MS Word

Я начал использовать expss в R Markdown для создания таблиц с помощью Knitr. Я хотел бы автоматизировать таблицы и анализ для отчета, который мне нужно подготовить в формате Microsoft Word.

При вязании в HTML таблицы выглядят замечательно. Таблицы в Word отображаются в виде строк обычного текста и не похожи на таблицу. Поддерживает ли expss экспорт таблиц в Word? Есть инструкции, как это сделать?

Таблицы, созданные с помощью kable и dplyr, корректно отображаются в Word. Однако я изо всех сил пытаюсь воспроизвести таблицы HTML, созданные с помощью expss.

library(expss)
data(mtcars)
mtcars = apply_labels(mtcars,
                      mpg = "Miles/(US) gallon",
                      cyl = "Number of cylinders",
                      disp = "Displacement (cu.in.)",
                      hp = "Gross horsepower",
                      drat = "Rear axle ratio",
                      wt = "Weight (1000 lbs)",
                      qsec = "1/4 mile time",
                      vs = "Engine",
                      vs = c("V-engine" = 0,
                             "Straight engine" = 1),
                      am = "Transmission",
                      am = c("Automatic" = 0,
                             "Manual"=1),
                      gear = "Number of forward gears",
                      carb = "Number of carburetors"
)

cro(mtcars$am, mtcars$vs)

Я надеюсь, что мои таблицы Word будут выглядеть как примеры таблиц HTML, которые можно найти по этой ссылке или в этом примере изображения таблицы HTML

введите здесь описание изображения

Я также был бы рад, если бы они выглядели как таблицы в моем выводе R Console.

введите здесь описание изображения

Вывод таблицы в Word выглядит так:

Двигатель

V-образный двигатель

Прямой двигатель

Передача инфекции

Автоматический

12

7

Руководство по эксплуатации

6

7

# Всего дел

18

14


r r-markdown expss knitr ms-word
person André van Zyl    schedule 05.04.2019    source источник

Ответы (1)


arrow_upward
1
arrow_downward

expss использует htmlTable пакет для визуализации таблиц. К сожалению, htmlTable не поддерживает вывод слов. Однако вы можете использовать функции split_table_to_df и kable. Они дают вам табличный вывод в Microsoft Word. См. Пример:

library(expss)
library(knitr)
data(mtcars)
mtcars = apply_labels(mtcars,
                      mpg = "Miles/(US) gallon",
                      cyl = "Number of cylinders",
                      disp = "Displacement (cu.in.)",
                      hp = "Gross horsepower",
                      drat = "Rear axle ratio",
                      wt = "Weight (1000 lbs)",
                      qsec = "1/4 mile time",
                      vs = "Engine",
                      vs = c("V-engine" = 0,
                             "Straight engine" = 1),
                      am = "Transmission",
                      am = c("Automatic" = 0,
                             "Manual"=1),
                      gear = "Number of forward gears",
                      carb = "Number of carburetors"
)

cro(mtcars$am, mtcars$vs) %>% 
    split_table_to_df() %>% 
    kable()
person Gregory Demin    schedule 08.04.2019