Prepares data for ggplot. Generic, with methods for data.frame, and decorated.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
file <- system.file(package = 'yamlet', 'extdata','quinidine.csv') x <- decorate(file) decorations(x, Weight) decorations(as.data.frame(x), Weight) # downgrade still has attributes class(x) class(ggready(as.data.frame(x))) class(ggready(x)) class(ggready(resolve(x))) x <- ggready(x) library(magrittr) library(ggplot2) # Here we filter on-the-fly # without loss of attributes. # Notice mg/L rendering; this is actually part of an expression. file %>% decorate %>% filter(!is.na(conc)) %>% ggready %>% ggplot(aes(x = time, y = conc, color = Heart)) + geom_point() # By default ggready resolves everything decorated. # But we can intervene to resolve selectively, # And further intervene to 'ggready' selectively. # x <- file %>% decorate %>% filter(!is.na(conc)) x %>% resolve(conc, time) %>% # Heart left unresolved! ggready(conc, Heart) %>% # time left unreadied! ggplot(aes(x = time, y = conc, color = Heart)) + geom_point() # Still, all the labels were actually expressions: x %>% resolve(conc, time) %>% ggready(conc, Heart) %>% decorations(conc, time, Heart)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.