Skip to content

Instantly share code, notes, and snippets.

@moldach

moldach/qs package for saving ggplot objects

Last active October 29, 2019 19:12
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save moldach/46e7e254f68b3cf690076c899f40f2e4 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save moldach/46e7e254f68b3cf690076c899f40f2e4 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. Matthew J. Oldach renamed this gist Oct 29, 2019. 1 changed file with 0 additions and 0 deletions.
    0 gistfile1.txt → qs package for saving ggplot objects
    View file
    File renamed without changes.
  2. Matthew J. Oldach created this gist Oct 29, 2019.
    42 changes: 42 additions & 0 deletions gistfile1.txt
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,42 @@
    library(bench)
    library(qs)
    library(sf)
    library(cowplot)

    # load ggplot
    download.file("https://www.dropbox.com/s/ao0827vayr5u3vx/hawaii_agriculture_100m_basemap.rds?raw=1" , "hawaii_agriculture_100m_basemap.rds")
    hawaii <- readRDS("hawaii_agriculture_100m_basemap.rds")

    # bench mark saving
    save_compressed <- bench::mark(saveRDS(hawaii, "hawaii_compressed.rds"), iterations = 50)
    save_uncompressed <- bench::mark(saveRDS(hawaii, "hawaii_uncompressed.rds", compress = FALSE), iterations = 50)
    save_qs <- bench::mark(qsave(hawaii, "hawaii.qs"), iterations = 50)

    # bench mark reading
    read_compressed <- bench::mark(hawaii <- readRDS("hawaii_compressed.rds"), iterations = 50)
    read_uncompressed <- bench::mark(hawaii <- readRDS("hawaii_uncompressed.rds"), iterations = 50)
    read_qs <- bench::mark(hawaii <- qread("hawaii.qs"), iterations = 50)

    # combine
    bench_save <- rbind(save_compressed, save_uncompressed, save_qs)
    bench_read <- rbind(read_compressed, bench_read_uncompressed, read_qs)

    # resort to system.time

    # bench mark saving
    system.time(saveRDS(hawaii, "hawaii_compressed.rds"))
    system.time(saveRDS(hawaii, "hawaii_uncompressed.rds", compress = FALSE))
    system.time(qsave(hawaii, "hawaii.qs")) # this freezes my 8Gb laptop and 32Gb workstation

    # bench mark reading
    system.time(hawaii <- readRDS("hawaii_compressed.rds"))
    system.time(hawaii <- readRDS("hawaii_uncompressed.rds"))
    system.time(hawaii <- qread("hawaii.qs"))

    plot_01 <- df %>% dplyr::filter(io == "write") %>% ggplot(., aes(x=method, y=time, fill=method)) +
    geom_bar(stat = "identity") + ggtitle("write time in seconds") + scale_fill_brewer(palette = "Set1") + theme_light() + theme(legend.position="none")

    plot_02 <- df %>% dplyr::filter(io == "read") %>% ggplot(., aes(x=method, y=time, fill=method)) +
    geom_bar(stat = "identity") + ggtitle("read time in seconds") + scale_fill_brewer(palette = "Set1") + theme_light() + theme(legend.position="none")

    plot_grid(plot_01, plot_02)