[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] org-babel R output table with plot
From: |
John Hendy |
Subject: |
Re: [O] org-babel R output table with plot |
Date: |
Mon, 24 Mar 2014 12:36:11 -0500 |
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:
>
>
> --
>