Pontifications

  • Same as yesterday with 8x zoom using webshot
  • Critical code (marked with "A)" )is:
html_print(
    streamgraph( groupedby_date_sixhundred_colourint,
                "sixhundred_colourint", "n", "date",
                interactive=FALSE) %>% 
    sg_fill_manual(values=colour_named_vector),
    viewer = NULL
) %>%
    normalizePath(.,winslash="/") %>%
    gsub(x=.,pattern = ":/",replacement="://") %>%
    paste0("file:///",.) %>%
    webshot(
        file = "8x-zoom-artofwhere-headless-streamgraph.png", delay = 10,
        selector = ".streamgraph",
        zoom = 8 # A) https://www.rdocumentation.org/packages/webshot/versions/0.4.1
        )  
}

800% zoom of Streamgraph of 600 int colours of string Colourname : average colour instagram vancouver january 2016 aes-x-hour-y-colourname* Invoked as:

cd /Users/rtanglao/Dropbox/GIT/2016-r-rtgram/JANUARY2016
Rscript ../leggings-artofwhere-streamgraph-600colour-int-ig-van-jan2016-avgcolour.R

Code: https://github.com/rtanglao/2016-r-rtgram/blob/master/leggings-artofwhere-streamgraph-600colour-int-ig-van-jan2016-avgcolour.R

Output

8x-zoom-artofwhere-headless-streamgraph