knitr Markdown LateX wie Tabelle im HTML-Dokument

Question

Ich mag würde "LaTeX-like" Tabelle innerhalb eines HTM-Dokuments mit knitr Abschlag (.Rmd) bis hin zu produzieren:

knitr::knit2html(input="D:/...Rmd", output="D:/...report.html") 

ist ein Beispiel hier. Allerdings, wenn ich einen Bericht erstellen beschlossen, würde die LaTeX-Tabelle falsch:

library(xtable) 

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

Die obige Abbildung zeigt:

Wie hier vorgeschlagen ist das Ergebnis. Es war keine LaTeX-ähnliche Tabelle!

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

EDIT:

Was meine ich mit "LaTeX-like" Tabelle ist dies:

Answer 1

Hier mit htmlTable ein Beispiel für eine Basistabelle ist :

--- 
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")) 
``` 

Answer 2

Die R Markdown cheat sheet bietet einen visuellen Vergleich der Bibliotheken kable, xtable und stargazer. Stargazer könnte sein, was Sie suchen.

Schauen Sie auch in das htmlTable Paket.

Weitere Anpassungen können mit einer benutzerdefinierten CSS-Datei vorgenommen werden.

Answer 3

Ich habe knitr::kable für die Erstellung der gewünschten Tabellen verwendet.

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

kable Funktion akzeptiert ein format Argument mit dem möglichen Werten latex, html, etc., um die Dokumentation sehen

komplette Markdown-Datei

--- 
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) 
```