knitr Markdown LateX как таблица в HTML документе


Я хотел бы создать" латексную " таблицу в документе HTM, используя knitr markdown (.Rmd) через:

knitr::knit2html(input="D:/...Rmd", output="D:/...report.html")
Вот вам пример. Однако, если бы я решил создать отчет, таблица LaTeX была бы неправильной:
library(xtable)

xtabl <- xtable(head(CO2))
print(xtabl, type="latex", include.rownames=FALSE)

Вышеизложенное дает:

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

Как предлагается здесь, таков результат. Это был не" латексный " стол!

xtabl <- xtable(head(CO2))
print.xtable(xtabl, type="html", include.rownames=FALSE)

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

Редактировать:

Что я имею в виду под "латексной" таблицей, так это это:

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

3   3  

3 ответа:

Вот пример базовой таблицы с htmlTable:

---
title: "Untitled"
author: "Author"
date: "2/5/2017"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

```{r}
library(htmlTable)
```

```{r, results="asis"}
tab = cbind.data.frame(
  sapply(iris[1:5 , sapply(iris, is.numeric)], function(x) sprintf("%1.1f", x)),
  Species=iris$Species[1:5]
  )

htmlTable(tab, rnames=FALSE, align="rrrrr", align.header="rrrrr",
          css.cell = c(rep("padding-left: 5em", 4), "padding-left: 2em"))
```

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

ШпаргалкаR Markdown обеспечивает визуальное сравнение библиотек kable, xtable и stargazer. Звездочет может быть тем, что вы ищете.

Также загляните в пакетhtmlTable .

Дальнейшие настройки могут быть сделаны с помощью пользовательского файла CSS.

Я использовал knitr::kable для создания нужных таблиц.

mydata <- data.frame(SrNo=c(1,2,3,4), websites=c("stackoverflow", "twitter", "facebook", "google"))
knitr::kable(mydata)

kable функция принимает аргумент format с возможными значениями latex, html, и т.д. подробности смотрите в документации

Полный файл Markdown

---
title: "kable"
author: "Imran Ali"
date: "February 6, 2017"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r, echo=FALSE}
mydata <- data.frame(SrNo=c(1,2,3,4), websites=c("stackoverflow", "twitter", "facebook", "google"))
knitr::kable(mydata)
```