Commit d6f4903b authored by Holger Brandl's avatar Holger Brandl

added pick

parent d5ea01ae
......@@ -11,6 +11,12 @@ rot_x_45 <- function() theme(axis.text.x = element_text(angle = 45, hjust = 1))
rotXlab <- function() theme(axis.text.x = element_text(angle = 90, hjust = 1))
# allow for layer-wise subsetting
# http://stackoverflow.com/questions/35806310/ggplot-plotting-layers-only-if-certain-criteria-are-met
pick <- function(condition){
function(d) d %>% filter_(condition)
}
# Multiple plot function
#
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment