Dear list, i have this problem: how to pair a graphic.png and a table in R2HTML ? The better showing of a mutiple analysis is sometimes to mate graphic and table Can anyone help me in this task ?? In the example below graphisc and table are subsequent and not pair.. directory=getwd() myfile<-file.path(directory,"testHTML.html") HTMLoutput=file.path(directory,"testHTML.html") graf="graf.png" png(file.path(directory,graf)) plot(c(1:12)) dev.off() tab<-as.matrix(c(1:12)) HTMLInsertGraph(graf,tab,file=HTMLoutput,caption="Esempio di grafico") browseURL(myfile) Thanks in advance Roberto Iacopetti -- View this message in context: http://www.nabble.com/R2HTML--how-to-pair-graphic.png-and-table-tf4956321.html#a14193218 Sent from the R help mailing list archive at Nabble.com.
Hi Roberto,
here is a way that presumes you know some (basic) HTML tags:
library(R2HTML)
directory=getwd()
myfile<-file.path(directory,"testHTML.html")
HTMLoutput=file.path(directory,"testHTML.html")
graf="graf.png"
png(file.path(directory,graf))
plot(c(1:12))
dev.off()
tab<-as.matrix(c(1:12))
cat("<table border=0><td width=50%>",file=HTMLoutput,
append=TRUE)
HTMLInsertGraph(graf,file=HTMLoutput,caption="Esempio di grafico")
cat("</td><td width=50%>",file=HTMLoutput, append=TRUE)
HTML(tab,file=HTMLoutput)
cat("</td></table>",file=HTMLoutput, append=TRUE)
browseURL(myfile)
I had already though I should include a function like layout for plots,
i will have a look at that when some time is available.
Best,
Eric
2007/12/6, Roberto Iacopetti
<iacopetti@fastpiu.it>:>
>
> Dear list,
> i have this problem:
> how to pair a graphic.png and a table in R2HTML ?
>
> The better showing of a mutiple analysis is sometimes to mate graphic and
> table
>
> Can anyone help me in this task ??
>
> In the example below graphisc and table are subsequent and not pair..
>
>
> directory=getwd()
> myfile<-file.path(directory,"testHTML.html")
> HTMLoutput=file.path(directory,"testHTML.html")
> graf="graf.png"
> png(file.path(directory,graf))
> plot(c(1:12))
> dev.off()
> tab<-as.matrix(c(1:12))
> HTMLInsertGraph(graf,tab,file=HTMLoutput,caption="Esempio di
grafico")
> browseURL(myfile)
>
> Thanks in advance
>
> Roberto Iacopetti
>
> --
> View this message in context:
>
http://www.nabble.com/R2HTML--how-to-pair-graphic.png-and-table-tf4956321.html#a14193218
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Eric Lecoutre
Consultant - Business & Decision
Business Intelligence & Customer Intelligence
[[alternative HTML version deleted]]
You could use a table with one row and two columns:
HTML("<TABLE><TD>",file=HTMLoutput)
HTML(tab,file=HTMLoutput)
HTML("</TD><TD>",file=HTMLoutput)
HTMLInsertGraph(graf,file=HTMLoutput,caption="Esempio di grafico")
HTML("</TD></TABLE>",file=HTMLoutput)
domenico
PS:
You could create a function if this is a common operation:
tableGraph=function(tab2Html,graph2Html,fileHtml){
HTML("<TABLE><TD>",file=fileHtml)
HTML(tab2Html,file=HTMLoutput)
HTML("</TD><TD>",file=HTMLoutput)
HTMLInsertGraph(graph2Html,file=fileHtml,caption="Esempio di
grafico")
HTML("</TD></TABLE>",file=fileHtml)
}
and then:
tableGraph(tab,graf,HTMLoutput)
Roberto Iacopetti wrote:> Dear list,
> i have this problem:
> how to pair a graphic.png and a table in R2HTML ?
>
> The better showing of a mutiple analysis is sometimes to mate graphic and
> table
>
> Can anyone help me in this task ??
>
> In the example below graphisc and table are subsequent and not pair..
>
>
> directory=getwd()
> myfile<-file.path(directory,"testHTML.html")
> HTMLoutput=file.path(directory,"testHTML.html")
> graf="graf.png"
> png(file.path(directory,graf))
> plot(c(1:12))
> dev.off()
> tab<-as.matrix(c(1:12))
> HTMLInsertGraph(graf,tab,file=HTMLoutput,caption="Esempio di
grafico")
> browseURL(myfile)
>
> Thanks in advance
>
> Roberto Iacopetti
>
>
