John Hendy <jw.he...@gmail.com> writes: > On Mon, Mar 24, 2014 at 10:22 AM, Feng Shu <tuma...@gmail.com> wrote: >> Hi everyone >> >> I want to R output table with plot, I use a solution below, >> Who can tell me other solutions? >> > > I sort of follow the below, but I think it would be more helpful to > describe what you *don't* like about the output below. In other words, > what are you trying to achieve that is not working below? >
It just suit my need, but I want to know more simper solution, which let me type less code. > > John > >> 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: >> >> >> -- >> --