Re: [O] org-babel R output table with plot

[John Hendy]

On Mon, Mar 24, 2014 at 10:22 AM, Feng Shu <address@hidden> 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?


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:
>
>
> --
>