[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [Babel] Header arguments
From: |
Thomas S. Dye |
Subject: |
[O] [Babel] Header arguments |
Date: |
Fri, 13 May 2011 16:56:51 -1000 |
Aloha all,
I have a little function that graphs two 14C dates (below). The data
are held in tables produced by a software package that I access on the
web. I read these into Org-mode and give them a #+tblname:, as shown
below. I'd like to have one function that will graph any number of tables
but I don't know how to package up the table references and get them
inside the function. If I put them in a table, they end up as strings
inside the function.
I suspect I'm being thick about this. Can someone give me a pointer to
how this might be done?
All the best,
Tom
#+tblname: theta-one-no-rat
| cal BP | Posterior probability |
|--------+-----------------------|
| -1520 | 1.8353001633417145E-5 |
...
**** Two dates
#+srcname: two-dated-events
#+header: :file ~/org/tsdye/two-dates.pdf
#+header: :var xlab="theta_1"
#+header: :var x=theta-one-no-rat
#+header: :var ylab="theta_4"
#+header: :var y=theta-four-no-rat
#+header: :width 6 :height 4 :results output graphics
#+begin_src R
library(ggplot2)
res <-
data.frame(cal.BP=numeric(0),Posterior.probability=numeric(0),label=character(0))
res <- rbind(res,cbind(x,label=rep(xlab,dim(x)[1])))
res <- rbind(res,cbind(y,label=rep(ylab,dim(y)[1])))
theme_set(theme_bw(base_size=11))
g <- ggplot(res, aes(x=1950 + cal.BP, y=Posterior.probability))
g + geom_bar(stat='identity') + xlab("Year AD") +
ylab("Probability") + facet_wrap(~ label)
#+end_src
--
Thomas S. Dye
http://www.tsdye.com
- [O] [Babel] Header arguments,
Thomas S. Dye <=