[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] org-babel R output table with plot
From: |
Feng Shu |
Subject: |
[O] org-babel R output table with plot |
Date: |
Mon, 24 Mar 2014 23:22:08 +0800 |
User-agent: |
Gnus/5.13001 (Ma Gnus v0.10) Emacs/24.3.50 (gnu/linux) |
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:
--
- [O] org-babel R output table with plot,
Feng Shu <=