Форматирование таблиц в R Markdown для экспорта в документ MS Word
Я начал использовать экспсс в 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.
Вывод таблицы в Word выглядит так:
Двигатель
V-образный двигатель
Прямой двигатель
Передача инфекции
автоматический
12
7
Руководство
6
7
#Всего случаев
18
14
Ответы 1
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()