More tidy evaluation with ggplot2

More tidy evaluation with ggplot2

Another look at tidy evaluation with a slight twist on the previous post

After my previous post, my good friend David Henderson asked a good question on Twitter ( it happens :))

2018-07-04-tweetshot.png

To be honest, I hadn’t even noticed there was no tilde (the ‘~’ ) in my call to facet_wrap.

So I did a little experiment :

library(dplyr)
library(ggplot2)
library(tidyr)
library(tibble)

data <- list(fdeaths, mdeaths, ldeaths) #time series data - needs prep

names(data)[1:3] <- c("fdeaths", "mdeaths", "ldeaths")

data <- as_tibble(data)
startdate <- as.Date('1974-1-1')
data$date <- seq.Date(startdate,by = 'month',length.out = 72)

newdata <- tidyr::gather(data, key = key, value = value,-date)

newdata$value <- as.numeric(newdata$value)
# adding in an additional colum to facet by
newdata$random <- stringr::str_sub(newdata$key,1,1)


gtest <- function(df,x,y,...) {
  # check out the ... in the function parameters
  x_quo <- enquo(x)
  y_quo <- enquo(y)
  groupvars <- quos(...) ## this is a new bit too
  
p <- ggplot(df,aes(x = !!x_quo, y = !!y_quo)) +   #bangin'   
    geom_line(colour = "blue", group = 1) + 
    geom_point(colour = "blue") +
    facet_wrap(groupvars, ncol = 2) #look Ma, no tilde. Also, 2 cols, not 3
    
p <- p + ggtitle(label = "Easy Tidy Eval in ggplot 3.0.0",
                  subtitle = "ggplot with tidy evaluation & facetting with no strings")
  
p <- p + labs(x = NULL, y = NULL, caption = "") +
    theme_bw()
  
  print(p)
}

gtest(newdata, date, value, random, key)

2018-07-04-tidy-string-free-ggplot2.png

Pretty cool huh?

What’s different here?

Well, I added in ‘…’ to the definition, and assigned groupvars using quos(…) Prior to that I’d taken the first letter of the key column as a new additional grouping column. So now we have 2 columns to facet_wrap.

Normally we’d use

facet_wrap(random ~ key)

Or vice versa. But, I didn’t need to do that, I just specified ‘groupvars’ as the faceting variable, and changed the number of columns to prove it actually does what I want.

facet_wrap(groupvars, ncol = 2)

Cleverer people than me will be able to explain this magic, but in the meantime, if you need to create a faceted ggplot2 function, I hope this post and the previous one help you get off the ground.

If you like this, please consider liking it (wherever is appropriate) and / or sharing it. Tag me on Twitter if you do ! @_johnmackintosh

Also clever peeps are welcome to explain the magic in the comments down below.

Cheers :)


© 2016 - 2022. All rights reserved.