# The Case for tidymodels

**R Views**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

If you are a data scientist with a built-out set of modeling tools that you know well, and which are almost always adequate for getting your work done, it is probably difficult for you to imagine what would induce you to give them up. Changing out what works is a task that rarely generates much enthusiasm. Nevertheless, in this post, I would like to point out a few features of `tidymodels`

that could help even experienced data scientists make the case to give `tidymodels`

a try.

So what are we talking about? `tidymodels`

are an integrated, modular, extensible set of packages that implement a framework that facilitates creating predicative stochastic models. `tidymodels`

are first class members of the `tidyverse`

. They adhere to `tidyverse`

syntax and design principles that promote consistency and well-designed human interfaces over speed of code execution. Nevertheless, they automatically build in parallel execution for tasks such as resampling, cross validation and parameter tuning. Moreover, they don’t just work through the steps of the basic modeling workflow, they implement conceptual structures that make complex iterative workflows possible *and* reproducible.

If you are an R user and you have building predictive models then there is a good chance that you are familiar with the `caret`

package. One straightforward path to investigate tidymodels is to follow the thread that leads form `caret`

to `parsnip`

. `caret`

, the result of a monumental fifteen year plus effort, incorporates two hundred thirty-eight predictive models into a common framework. For example, any one of the included models can be substituted for `lm`

in the following expression.

```
lmFit <- train(Y ~ X1 + X2, data = training,
method = "lm",
trControl = fitControl)
```

By itself this is a pretty big deal. `parsnip`

refines this idea by creating a specification structure that identifies a class of models that allows users to easily change algorithms and also permits the models to run on different “engines”.

```
spec_lin_reg <- linear_reg() %>% # a linear model specification
set_engine( "lm") # set the model to use lm
# fit the model
lm_fit <- fit(spec_lin_reg, Y ~ X1 + X2, data = my_data)
```

This same specification can be modified to run a Bayesian model using `Stan`

, or any number of other linear model backends such as `glmnet`

, `keras`

or `spark`

.

```
spec_stan <-
spec_lin_reg %>%
set_engine("stan", chains = 4, iter = 1000) # set engine specific arguments
fit_stan <- fit(spec_stan, Y ~ X1 + X2, data = my_data)
```

On its own, `parnsnip`

provides a time saving framework for exploring multiple models. It is really nice not to have to worry about the idiosyncratic syntax developed for different model algorithms. But, the real power of tidymodels is baked into the `recipes`

package. Recipes are structures that bind a sequence of preprocessing steps to a training data set. They define the roles that the variables are to play in the design matrix, specify what data cleaning needs to take place, and what feature engineering needs to happen.

To see how all of this comes together, lets look at recipe used in the `tidymodels`

`recipes`

tutorial that uses the New York City flights data set, `nycflights13`

. We assume that all of the data wrangling code in the tutorial has been executed, and we pick up with the code to define the recipe:

```
flights_rec <-
recipe(arr_delay ~ ., data = train_data) %>%
update_role(flight, time_hour, new_role = "ID") %>%
step_date(date, features = c("dow", "month")) %>%
step_rm(date) %>%
step_dummy(all_nominal(), -all_outcomes())
```

The first line identifies the variable arr_delay as the variable to be predicted and the other variables in the data set train_data to be predictors. The second line amends that by updating the roles of the variables flight and time_hour to be identifiers and not predictors. The third and fourth lines continue with the feature engineering by creating a new date variable and removing the old one. The last line explicitly converts all categorical or factor variables into binary dummy variables.

The recipe is ready to be evaluated, but if a modeler thought that she might want to keep track of this workflow for the future, she might bind the recipe and model together in a `workflow()`

that saves everything as a reproducible unit with a command something like this.

```
lr_mod <- logistic_reg() %>% set_engine("glm")
flights_wflow <-
workflow() %>%
add_model(lr_mod) %>%
add_recipe(flights_rec)
```

Then, fitting the model is just a matter calling `fit`

with the workflow as a parameter.

`flights_fit <- fit(flights_wflow, data = train_data)`

At this point, everything is in place to complete a statistical analysis. A modeler can extract coefficients, p-values etc., calculate performance statistics, make statistical inferences and easily save the workflow in a reproducible `markdown`

document. However the real gains from `tidymodels`

become apparent when the modeler goes on to build predictive models.

The following diagram from Kuhn and Johnson (2019) illustrates a typical predictive modeling workflow.

It indicates that before going on to predict model performance on new data (the test set), a modeler will want to make use of cross validation or some other resampling technique to first evaluate the performance of multiple candidate models, and then tune the selected model. This is where the great power of the `recipe()`

and `workflow()`

constructs becomes apparent. In addition, to encouraging experiments with multiple models by rationalizing algorithm syntax, providing interchangeable model constructs, and enabling modelers to grow chains of recipe steps with the pipe operator; `recipies`

*helps to enforce good statistical practice*.

For example, although it is common practice to split the available data between training and test sets before preprocessing the training data set, it is also very common to see pipelines where data preparation is applied to the entire training set at one go. It is not common to see data cleaning and preparation processes individually applied to each fold of a ten-fold cross validation effort. But, that is exactly the right thing to do to mitigate the deleterious effects of data imputation, centering and scaling and numerous other preparation steps that contribute to bias and limit the predictive value of a model. This is the whole point of resampling, but it is not easy to do in a way that saves necessary intermediate artifacts, and provides a reproducible set of instructions for others on the modeling team.

Because, *recipes are not evaluated until the model is fit* `tidymodel`

workflows make an otherwise laborious and error prone process very straightforward. This is a game changer!

The next two lines of code set up and execute ten-fold cross-validation for our example.

```
set.seed(123)
folds <- vfold_cv(train_data, v = 10)
flights_fit_rs <- fit_resamples(flights_wflow, folds)
```

And then, another line of code collects the metrics over the folds and prints out the statistics for accuracy and area under the ROC curve.

`collect_metrics(flights_fit_rs)`

So, here we are with a mediocre model, and I’ll stop now having shown you only a small portion of what `tidymodels`

can do, but enough, I hope to motivate you to take a closer look. tidymodels.org is a superbly crafted website with multiple layers of documentation. There are sections on packages, getting started guides, detailed tutorials, help pages and a section on making contributions.

Happy modeling!

**leave a comment**for the author, please follow the link and comment on their blog:

**R Views**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.