tikzDevice output example

fixedconc.R

library(tikzDevice)
library(ggplot2)

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("$\\delta$, \\%")

dev.off()