data_frame = data.frame(case=c(“pickle”, “Apache Arrow”),

elapsed=c(20.7, 0.737))

ggplot2::ggplot(data_frame) +

ggplot2::ggtitle("Apache Arrow improves data interchange performance") +
ggplot2::labs(x="Elapsed time in seconds (Shorter is faster)",
              y="Format",
              caption="Data at https://arrow.apache.org/blog/2017/07/26/spark-arrow/") +
ggplot2::geom_bar(ggplot2::aes(y=case, weight=elapsed)) +
ggplot2::ggsave("images/apache-spark-improvement.svg",
                dpi=100,
                height=3.8)