Commit: 0c299aaca51f6009264df8f64cc071c194bbaa23 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 0c299aaca51f6009264df8f64cc071c194bbaa23 (tree)
• Time: 2020-07-17 05:02:20
• Author: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

A simple example for conditional formatting for the color of a table with percentages. The trick is to include the formattable library but not to treat the % sign like in latex.

Change Summary

• add: R-codes/test_percentage_kable.R

Incremental Difference

diff -r 79d119ff7cf7 -r 0c299aaca51f R-codes/test_percentage_kable.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R-codes/test_percentage_kable.R	Thu Jul 16 22:02:20 2020 +0200
@@ -0,0 +1,104 @@
+
+library(tidyverse)
+library(kableExtra)
+library(formattable)
+
+
+## a function to replace some strings -- not important how it works for this example.
+
+
+search_replace <- function(df, pattern_search, pattern_replace){
+    x <- df  %>%
+        mutate(across(where(is.character),
+                        stringr::str_replace_all, pattern = pattern_search,
+                        replacement = pattern_replace))
+}
+
+
+
+zz <- paste(seq(10), "%", sep="")
+
+df <- tibble(x=letters[1:10], y=c(rep(-1,5), rep(1,5)),
+             z=zz)
+
+df_plot1 <- df %>%
+    search_replace( "%", "\\\\%" ) ## to render the percentages in latex
+
+    
+ll1 <- df_plot1 %>%
+    kable("latex", booktabs = T, escape = F)
+
+
+
+
+
+
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+                     "\\usepackage{graphicx}",
+         "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\thispagestyle{empty}",
+    ll1,
+    "\\end{document}"
+  ),
+  "test1.tex"
+)
+
+
+
+
+
+
+
+
+
+
+tools::texi2pdf("test1.tex", clean = TRUE) ## and everything is fine
+
+
+
+##now with conditional formatting
+
+ll2 <- df %>%
+    mutate(z = cell_spec(z, "latex",
+                              color = ifelse(y >= 0, "black", "red"))) %>% 
+
+    kable("latex", booktabs = T, escape = F) 
+
+
+
+
+writeLines(
+  c(
+      "\\documentclass{article}",
+                     "\\usepackage{graphicx}",
+         "\\usepackage{makecell}",
+          "\\usepackage{booktabs}",
+"\\usepackage{colortbl, xcolor}",
+"\\begin{document}",
+"\\thispagestyle{empty}",
+    ll2,
+    "\\end{document}"
+  ),
+  "test2.tex"
+)
+
+
+
+
+
+
+
+
+tools::texi2pdf("test2.tex", clean = TRUE) ## and the % is no longer rendered correctly
+
+
+