Wie kann ich einen R-Datenrahmen in eine einfache, unstrukturierte HTML-Tabelle umwandeln?

Question

Nehmen wir an, ich habe einen Datenrahmen in R. Ich möchte es in eine Datei als einfache HTML-Tabelle schreiben. Nur die < Tabelle>, < tr> und < td> Tags.

Bis jetzt scheint das härter als es sein sollte. Im Moment bin ich versucht, R2THML zu verwenden wie so:

HTML(dataframe, file=outpath, append=FALSE) 

Aber dann bekomme ich eine hässliche, html-Stil-Datei, die wie so aussehen könnte:

<table cellspacing=0 border=1> 
<caption align=bottom class=captiondataframe></caption> 
<tr><td> 
    <table border=0 class=dataframe> 
    <tbody> 
    <tr class= firstline > 
     <th>&nbsp; </th> 
     <th>name </th> 
     <th>donations </th> 
     <th>clicks </th> 
      ... 
    </tr> 
<tr> 
<td class=firstcolumn>1 
</td> 
<td class=cellinside>Black.text 
</td> 
... 
</tbody> 
</table> 
</td></table> 
<br> 

Gibt es eine Möglichkeit Ausgabe zu erhalten das ist einfacher (ohne Angabe von Rahmen, Überschriften, Beschriftungen usw. Ohne Ausgabe einer Tabelle innerhalb eine andere Tabelle)? Oder ist das so gut wie es geht?

Answer 1

Das xtable Paket kann HTML-Ausgabe sowie LaTeX Ausgabe erzeugen.

# install.packages("xtable") 
library("xtable") 
sample_table <- mtcars[1:3,1:3] 
print(xtable(sample_table), type="html", file="example.html") 

gibt, in der Datei example.html:

print(xtable(sample_table, align="llll"), 
     type="html", html.table.attributes="") 

gibt

<!-- html table generated in R 3.0.1 by xtable 1.7-1 package --> 
<!-- Fri Jul 19 09:13:33 2013 --> 
<TABLE > 
<TR> <TH> </TH> <TH> mpg </TH> <TH> cyl </TH> <TH> disp </TH> </TR> 
    <TR> <TD> Mazda RX4 </TD> <TD> 21.00 </TD> <TD> 6.00 </TD> <TD> 160.00 </TD> </TR> 
    <TR> <TD> Mazda RX4 Wag </TD> <TD> 21.00 </TD> <TD> 6.00 </TD> <TD> 160.00 </TD> </TR> 
    <TR> <TD> Datsun 710 </TD> <TD> 22.80 </TD> <TD> 4.00 </TD> <TD> 108.00 </TD> </TR> 
    </TABLE> 

:

<!-- html table generated in R 3.0.1 by xtable 1.7-1 package --> 
<!-- Fri Jul 19 09:08:15 2013 --> 
<TABLE border=1> 
<TR> <TH> </TH> <TH> mpg </TH> <TH> cyl </TH> <TH> disp </TH> </TR> 
    <TR> <TD align="right"> Mazda RX4 </TD> <TD align="right"> 21.00 </TD> <TD align="right"> 6.00 </TD> <TD align="right"> 160.00 </TD> </TR> 
    <TR> <TD align="right"> Mazda RX4 Wag </TD> <TD align="right"> 21.00 </TD> <TD align="right"> 6.00 </TD> <TD align="right"> 160.00 </TD> </TR> 
    <TR> <TD align="right"> Datsun 710 </TD> <TD align="right"> 22.80 </TD> <TD align="right"> 4.00 </TD> <TD align="right"> 108.00 </TD> </TR> 
    </TABLE> 

Dies könnte mit mehr Optionen zu xtable und print.xtable vereinfacht werden

(die in eine Datei mit dem file Argumente print.xtable wie im vorherigen Beispiel gerichtet werden könnten.)

Answer 2

Die Antwort ist eigentlich ganz einfach, wenn Sie xtable verwenden. (Dank Señor O für die Spitze.)

install.packages("xtable") 
library(xtable) 
out_table_x <- xtable(out_table) 
print(out_table_x, type='html', file="./example.html") 

Answer 3

Eine schönere, aber langsame Option:

library(htmlTable) 
htmlTable(iris) 

Answer 4

to_html_table<-function(dataframe){ 
tags$table(
    tags$thead(tags$tr(lapply(colnames(dataframe), function(x) tags$th(x)))), 
    tags$tbody(
    apply(dataframe,1, function(x) { tags$tr(lapply(x, function(y) tags$td(y)))}) 
)) 
}