Hi everyone I want to R output table with plot, I use a solution below, Who can tell me other solutions?
thanks! #+begin_src R :results output raw drawer require("ascii") print.org <- function (x, caption) { print(paragraph(paste("#+CAPTION: ", caption, sep="")),type="org") print(ascii(x),type="org") } plot.org <- function (x, caption) { pngfile <- paste(caption, ".png", sep="") print(paragraph(paste("#+CAPTION: ", caption, sep="")),type="org") png(pngfile) plot(x) dev.off() print(paragraph(paste("[[./", pngfile, "]]", sep=""),new=FALSE),type="org") } data <- data.frame(x=c(1,20,100,800),y=c(200,4,5,29)) print.org(data, "test-table1") print.org(data, "test-table2") plot.org(data, "test-pic") #+end_src #+RESULTS: :RESULTS: #+CAPTION: test-table1 | | x | y | |---+--------+--------| | 1 | 1.00 | 200.00 | | 2 | 20.00 | 4.00 | | 3 | 100.00 | 5.00 | | 4 | 800.00 | 29.00 | #+CAPTION: test-table2 | | x | y | |---+--------+--------| | 1 | 1.00 | 200.00 | | 2 | 20.00 | 4.00 | | 3 | 100.00 | 5.00 | | 4 | 800.00 | 29.00 | #+CAPTION: test-pic [[./test-pic.png]] :END: --