* Make * bold or use colour for export to html and LaTeX @ 2014-10-10 10:29 Rainer M Krug 2014-10-10 12:23 ` Andreas Leha 2014-10-10 16:13 ` Aaron Ecay 0 siblings, 2 replies; 5+ messages in thread From: Rainer M Krug @ 2014-10-10 10:29 UTC (permalink / raw) To: emacs-orgmode [-- Attachment #1: Type: text/plain, Size: 1121 bytes --] Hi I want to highlight the cells in the table below with "***" by using color red for the font, "**' by using green for the font, ... or, if not possible, bold. Is any of this possible? The table is generated in R, so the ascii package might help (just thinking about it while typing)? Thanks, Rainer --8<---------------cut here---------------start------------->8--- | | slope | intercept | p | pm | pb | |----------------------------+--------+-----------+---------------+--------------+---------------| | quercus_robur.single | -1.358 | 4.76 | | | | | quercus_robur.95 | -1.957 | 5.71 | 3.96e-21 *** | 7.47e-07 *** | 7.60e-09 *** | | quercus_robur.90 | -1.752 | 5.42 | 3.43e-02 * | 7.18e-02 . | 4.79e-02 * | | quercus_robur.85 | -1.773 | 5.41 | 4.11e-01 | 8.33e-01 | 9.38e- --8<---------------cut here---------------end--------------->8--- -- Rainer M. Krug email: Rainer<at>krugs<dot>de PGP: 0x0F52F982 [-- Attachment #2: Type: application/pgp-signature, Size: 494 bytes --] ^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Make * bold or use colour for export to html and LaTeX 2014-10-10 10:29 Make * bold or use colour for export to html and LaTeX Rainer M Krug @ 2014-10-10 12:23 ` Andreas Leha 2014-10-10 12:35 ` Rainer M Krug 2014-10-10 16:13 ` Aaron Ecay 1 sibling, 1 reply; 5+ messages in thread From: Andreas Leha @ 2014-10-10 12:23 UTC (permalink / raw) To: emacs-orgmode Hi Rainer, Rainer M Krug <Rainer@krugs.de> writes: > Hi > > I want to highlight the cells in the table below with "***" by using > color red for the font, "**' by using green for the font, ... or, if not possible, bold. Is any of this possible? > > The table is generated in R, so the ascii package might help (just > thinking about it while typing)? > > Thanks, > > Rainer > > | | slope | intercept | p | pm | pb | > |----------------------------+--------+-----------+---------------+--------------+---------------| > | quercus_robur.single | -1.358 | 4.76 | | | | > | quercus_robur.95 | -1.957 | 5.71 | 3.96e-21 *** | 7.47e-07 *** | 7.60e-09 *** | > | quercus_robur.90 | -1.752 | 5.42 | 3.43e-02 * | 7.18e-02 . | 4.79e-02 * | > | quercus_robur.85 | -1.773 | 5.41 | 4.11e-01 | 8.33e-01 | 9.38e- I am not sure to understand your question correctly, but if the table is R generated anyway, why not use R to provide the formatting for org? Like -- as a start -- this function, that does the simplest of those and replaces "***" with bold: --8<---------------cut here---------------start------------->8--- boldpattern <- " \\*\\*\\*$" tbl <- apply(tbl, 2, function(x) ifelse(grepl(boldpattern, x), paste0("*", gsub(boldpattern, "", x), "*"), x)) --8<---------------cut here---------------end--------------->8--- Here as full example in action: --8<---------------cut here---------------start------------->8--- ## ---------------------------------- ## ## create a table ## ## ---------------------------------- ## ## from ?lm ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) group <- gl(2, 10, 20, labels = c("Ctl","Trt")) weight <- c(ctl, trt) lm.D9 <- lm(weight ~ group) lm.D90 <- lm(weight ~ group - 1) # omitting intercept ## extract the coefficients tbl <- summary(lm.D90)$coefficients ## add the signif codes tbl[,4] <- paste(tbl[,4], symnum(tbl[,4], corr = FALSE, na = FALSE, cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " "))) tbl ## ---------------------------------- ## ## make them 'org-bold' ## ## ---------------------------------- ## boldpattern <- " \\*\\*\\*$" tbl <- apply(tbl, 2, function(x) ifelse(grepl(boldpattern, x), paste0("*", gsub(boldpattern, "", x), "*"), x)) tbl --8<---------------cut here---------------end--------------->8--- HTH, Andreas PS: The usual "don't use the signif.codes" applies. ^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Make * bold or use colour for export to html and LaTeX 2014-10-10 12:23 ` Andreas Leha @ 2014-10-10 12:35 ` Rainer M Krug 0 siblings, 0 replies; 5+ messages in thread From: Rainer M Krug @ 2014-10-10 12:35 UTC (permalink / raw) To: Andreas Leha; +Cc: emacs-orgmode [-- Attachment #1: Type: text/plain, Size: 3192 bytes --] Andreas Leha <andreas.leha@med.uni-goettingen.de> writes: > Hi Rainer, > > Rainer M Krug <Rainer@krugs.de> writes: >> Hi >> >> I want to highlight the cells in the table below with "***" by using >> color red for the font, "**' by using green for the font, ... or, if not possible, bold. Is any of this possible? >> >> The table is generated in R, so the ascii package might help (just >> thinking about it while typing)? >> >> Thanks, >> >> Rainer >> >> | | slope | intercept | p | pm | pb | >> |----------------------------+--------+-----------+---------------+--------------+---------------| >> | quercus_robur.single | -1.358 | 4.76 | | | | >> | quercus_robur.95 | -1.957 | 5.71 | 3.96e-21 *** | 7.47e-07 *** | 7.60e-09 *** | >> | quercus_robur.90 | -1.752 | 5.42 | 3.43e-02 * | 7.18e-02 . | 4.79e-02 * | >> | quercus_robur.85 | -1.773 | 5.41 | 4.11e-01 | 8.33e-01 | 9.38e- > > > I am not sure to understand your question correctly, but if the table is > R generated anyway, why not use R to provide the formatting for org? You do - bold or in colour. > > > Like -- as a start -- this function, that does the simplest of those and > replaces "***" with bold: This looks very promising, but I would also like to keep the stars, so I would like to have "3.96e-21 ***" in bold (or even in color`). But I am going to start with your example. Thanks, Rainer > > boldpattern <- " \\*\\*\\*$" > tbl <- apply(tbl, 2, > function(x) ifelse(grepl(boldpattern, x), > paste0("*", gsub(boldpattern, "", x), "*"), > x)) > > > Here as full example in action: > > ## ---------------------------------- ## > ## create a table ## > ## ---------------------------------- ## > > ## from ?lm > ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14) > trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69) > group <- gl(2, 10, 20, labels = c("Ctl","Trt")) > weight <- c(ctl, trt) > lm.D9 <- lm(weight ~ group) > lm.D90 <- lm(weight ~ group - 1) # omitting intercept > ## extract the coefficients > tbl <- summary(lm.D90)$coefficients > ## add the signif codes > tbl[,4] <- paste(tbl[,4], > symnum(tbl[,4], corr = FALSE, na = FALSE, > cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), > symbols = c("***", "**", "*", ".", " "))) > tbl > > > ## ---------------------------------- ## > ## make them 'org-bold' ## > ## ---------------------------------- ## > boldpattern <- " \\*\\*\\*$" > tbl <- apply(tbl, 2, > function(x) ifelse(grepl(boldpattern, x), > paste0("*", gsub(boldpattern, "", x), "*"), > x)) > tbl > > > HTH, > Andreas > > PS: The usual "don't use the signif.codes" applies. > > > -- Rainer M. Krug email: Rainer<at>krugs<dot>de PGP: 0x0F52F982 [-- Attachment #2: Type: application/pgp-signature, Size: 494 bytes --] ^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: Make * bold or use colour for export to html and LaTeX 2014-10-10 10:29 Make * bold or use colour for export to html and LaTeX Rainer M Krug 2014-10-10 12:23 ` Andreas Leha @ 2014-10-10 16:13 ` Aaron Ecay 2014-10-13 11:29 ` pgfplotstable and org -WAS: " Rainer M Krug 1 sibling, 1 reply; 5+ messages in thread From: Aaron Ecay @ 2014-10-10 16:13 UTC (permalink / raw) To: Rainer M Krug, emacs-orgmode Hi Rainer, 2014ko urriak 10an, Rainer M Krug-ek idatzi zuen: > > Hi > > I want to highlight the cells in the table below with "***" by using > color red for the font, "**' by using green for the font, ... or, if not possible, bold. Is any of this possible? > > The table is generated in R, so the ascii package might help (just > thinking about it while typing)? If you’re exporting only to Latex, an option might be the pgfplotstable package. Here’s some examples from tex.stackexchange: https://tex.stackexchange.com/questions/100458/pgfplotstable-conditional-post-processing-of-cell-content-on-a-per-column-basis https://tex.stackexchange.com/questions/126959/conditional-format-for-correlation-table https://tex.stackexchange.com/questions/156168/conditional-formatting-rounding-and-postprocessing-of-a-column-in-pgfplotstable -- Aaron Ecay ^ permalink raw reply [flat|nested] 5+ messages in thread
* pgfplotstable and org -WAS: Make * bold or use colour for export to html and LaTeX 2014-10-10 16:13 ` Aaron Ecay @ 2014-10-13 11:29 ` Rainer M Krug 0 siblings, 0 replies; 5+ messages in thread From: Rainer M Krug @ 2014-10-13 11:29 UTC (permalink / raw) To: emacs-orgmode [-- Attachment #1: Type: text/plain, Size: 1210 bytes --] Aaron Ecay <aaronecay@gmail.com> writes: > Hi Rainer, > > 2014ko urriak 10an, Rainer M Krug-ek idatzi zuen: >> >> Hi >> >> I want to highlight the cells in the table below with "***" by using >> color red for the font, "**' by using green for the font, ... or, if not possible, bold. Is any of this possible? >> >> The table is generated in R, so the ascii package might help (just >> thinking about it while typing)? > > If you’re exporting only to Latex, an option might be the pgfplotstable > package. Here’s some examples from tex.stackexchange: > > https://tex.stackexchange.com/questions/100458/pgfplotstable-conditional-post-processing-of-cell-content-on-a-per-column-basis > https://tex.stackexchange.com/questions/126959/conditional-format-for-correlation-table > https://tex.stackexchange.com/questions/156168/conditional-formatting-rounding-and-postprocessing-of-a-column-in-pgfplotstable I must say pgfplotstable looks interesting but also quite complex. Are there any examples on how I can use pgfplotstable within the org context (apart from one huge LaTeX code block)? Thanks, Rainer -- Rainer M. Krug email: Rainer<at>krugs<dot>de PGP: 0x0F52F982 [-- Attachment #2: Type: application/pgp-signature, Size: 494 bytes --] ^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2014-10-13 11:29 UTC | newest] Thread overview: 5+ messages (download: mbox.gz follow: Atom feed -- links below jump to the message on this page -- 2014-10-10 10:29 Make * bold or use colour for export to html and LaTeX Rainer M Krug 2014-10-10 12:23 ` Andreas Leha 2014-10-10 12:35 ` Rainer M Krug 2014-10-10 16:13 ` Aaron Ecay 2014-10-13 11:29 ` pgfplotstable and org -WAS: " Rainer M Krug
Code repositories for project(s) associated with this public inbox https://git.savannah.gnu.org/cgit/emacs/org-mode.git This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).