Skip to content

Instantly share code, notes, and snippets.

@dvdesolve
Created September 19, 2017 20:35
Show Gist options
  • Save dvdesolve/64f4a89f0ec51e8c236066834d57a233 to your computer and use it in GitHub Desktop.
Save dvdesolve/64f4a89f0ec51e8c236066834d57a233 to your computer and use it in GitHub Desktop.
tikzDevice output example - ver. 2
type fixed delta
Ki invis 0,4883642619
Ki vis 0,3613851374
kcat invis 1,0486102416
kcat vis 0,7752776029
Km invis 2,6102565864
Km vis 2,0140390717
Kp invis 0,8960615386
Kp vis 0,6552219266
library(tikzDevice)
library(ggplot2)
options(tikzMetricPackages = c("\\usepackage[T2A]{fontenc}", "\\usepackage[utf8]{inputenc}", "\\usepackage[russian,english]{babel}", "\\usetikzlibrary{calc}"))
df <- read.table("data.dat", dec = ",", header = T)
tikz(file = "fixedconc.tex", width = 6, height = 4)
ggplot(df, aes(x = factor(type), y = delta, fill = fixed)) +
geom_bar(stat = "identity", position="dodge", colour="black") +
theme_bw() + theme(legend.title = element_blank(), axis.title.x = element_blank()) +
scale_fill_discrete(labels = c("fix undetectable", "fix detectable")) +
scale_x_discrete(labels = c("$K_\\textrm{I}$","$k_\\textrm{cat}$","$K_\\textrm{M}$","$K_\\textrm{P}$"), limits = c("Ki", "kcat", "Km", "Kp")) +
ylab("Относительная погрешность, \\%")
dev.off()
Creating temporary TikZ metrics dictionary at:
/tmp/RtmplCNsVE/tikzMetricsDictionary
Using TikZ metrics dictionary at:
/tmp/RtmplCNsVE/tikzMetricsDictionary
Measuring dimensions of: \char77
Measuring dimensions of: \char32
Measuring dimensions of: \char44
Measuring dimensions of: \char92
Measuring dimensions of: \char37
***STOP button pressed***
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment