# Processing times
library(magrittr)
library(ggplot2)
theme_set(theme_bw(20))
dft <- data.frame(Field = factor(names(preprocessing.times)),
Time = preprocessing.times)
dft %<>% arrange(Time)
dft$Field <- factor(dft$Field, levels = as.character(dft$Field))
p <- ggplot(dft, aes(x = Field, y = Time)) +
geom_bar(stat = "identity") +
#scale_y_log10() +
ylab("Time (Minutes)") +
coord_flip() +
ggtitle("Processing times")
print(p)
pdf("processingtimes.png")
print(p)
dev.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.