From: "Eric Schulte" <schulte.eric@gmail.com>
To: James TD Smith <ahktenzero@mohorovi.cc>
Cc: Org-mode <emacs-orgmode@gnu.org>
Subject: Re: graphing from org-tables
Date: Fri, 25 Jul 2008 12:07:00 -0700 [thread overview]
Message-ID: <488a2450.1e078e0a.2bc0.181f@mx.google.com> (raw)
In-Reply-To: <20080725162527.GA54528@yog-sothoth.mohorovi.cc>
I had some time waiting for things to execute, so I condensed your
process into a single command (borrowing heavily from
org-export-table).
(defun org-table/gnuplot (&optional x-col)
"Plot the current table using gnuplot. Use a prefix argument
to specify a column to use for the x-coordinates, to use the row
number for the x-coordinates provide a prefix argument of 0."
(interactive "p")
(message (format "%S" x-col))
(unless (org-at-table-p)
(error "No table at point"))
(require 'org-exp)
(require 'gnuplot)
(org-table-align) ;; make sure we have everything we need
(let* ((beg (org-table-begin))
(end (org-table-end))
(cols (save-excursion
(goto-char end)
(backward-char 3)
(org-table-current-column)))
(data-beg (if (and
(goto-char beg)
(re-search-forward org-table-dataline-regexp end t)
(re-search-forward org-table-hline-regexp end t)
(re-search-forward org-table-dataline-regexp end t))
(match-beginning 0)
beg))
(skip (- (line-number-at-pos data-beg) (line-number-at-pos beg)))
(exp-format (format "orgtbl-to-tsv :skip %d" skip))
(file (make-temp-file "org-table-plot")))
;; export table
(org-table-export file exp-format)
(with-temp-buffer
;; write script
(insert (org-table/gnuplot-script file x-col cols))
;; graph table
(gnuplot-mode)
(gnuplot-send-buffer-to-gnuplot)
(bury-buffer (get-buffer "*gnuplot*")))
(delete-file file)))
(defun org-table/gnuplot-script (file x-col num-cols)
(let ((plot-str "'%s' using %s:%d with lines title '%d'");; "\\\n ,"
script)
(dotimes (col (+ 1 num-cols))
(unless (or (and x-col (equal col x-col)) (equal col 0))
(setf script (cons (format plot-str file (or (and x-col (format "%d" x-col)) "") col col) script))))
(concat "plot " (mapconcat 'identity (reverse script) "\\\n ,"))))
On Friday, July 25, at 17:25, James TD Smith wrote:
> On 2008-07-25 08:53:31(-0700), Eric Schulte wrote:
> >
> > Any advice for quick graphing of a table in org-mode?
> >
>
> I have a setup for plotting data from tables. I'm not sure if it's exactly what
> you want, but yoy may find it useful.
>
> 1. Add the following to your .emacs:
>
> (defun ahkt-plot-table (script)
> "util function to export and plot a table using the supplied
> gnuplot `script'"
> (org-table-export)
> (let ((cbuf (current-buffer))
> (cwin (selected-window)))
> (save-restriction
> (save-excursion
> (find-file script)
> (gnuplot-send-buffer-to-gnuplot)
> (bury-buffer)
> (bury-buffer (get-buffer "*gnuplot*"))))
> (and (window-live-p cwin) (select-window cwin))
> (switch-to-buffer cbuf)
> (delete-other-windows)))
>
> 2. Create a gnuplot script which plots data from a file.
>
> 3. Add the following properties to the headline containing the table.
> TABLE_EXPORT_FILE <filename in the gnuploy script>
> TABLE_EXPORT_FORMAT orgtbl-to-generic :skip 4 :splice t :sep "\t"
>
> 4. Add an org link in the table (it must be in the table otherwise the export
> doesn't work) as below:
> [[elisp:(ahkt-plot-table "<gnuplot script>")][plot table]]
>
> I suggest you put it at the top of the table.
> You will then need to adjust the 'skip' parameter in the export format depending
> on the number of lines at the top of the table which should not be exported
> (hlines, more than one plotting link etc).
>
> 5. You should then be able to open the link, and get a plot of the table
> contents.
>
>
> --
> |-<James TD Smith>-<email/ahktenzero@mohorovi.cc>-|
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
--
schulte
next prev parent reply other threads:[~2008-07-25 19:07 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
2008-07-25 15:53 graphing from org-tables Eric Schulte
2008-07-25 16:23 ` Carsten Dominik
2008-07-25 16:25 ` James TD Smith
2008-07-25 16:33 ` Carsten Dominik
2008-07-25 17:14 ` Eric Schulte
2008-07-25 19:07 ` Eric Schulte [this message]
2008-07-26 18:15 ` Dan Davison
2008-07-28 15:32 ` Eric Schulte
2008-07-28 15:41 ` Dan Davison
2008-12-21 20:31 ` Dan Davison
2008-12-22 17:00 ` Eric Schulte
2009-01-22 16:27 ` Dan Davison
2009-01-23 1:37 ` Eric Schulte
2009-01-23 7:30 ` Carsten Dominik
2009-01-26 8:53 ` Carsten Dominik
2009-01-28 3:06 ` Dan Davison
2009-01-28 10:18 ` Carsten Dominik
[not found] ` <C8C13077-8B16-4E8C-8425-5782CE1EDC98@uva.nl>
[not found] ` <488b7c9b.14be600a.11cc.ffff9150@mx.google.com>
[not found] ` <9629760B-7606-42FD-B625-FAC44490221C@uva.nl>
2008-07-28 14:26 ` Eric Schulte
2008-07-28 21:00 ` Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=488a2450.1e078e0a.2bc0.181f@mx.google.com \
--to=schulte.eric@gmail.com \
--cc=ahktenzero@mohorovi.cc \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.