glmnet autoplot method for #642

[topepo]

Closes #642

Tests will be in extratests.

Example:

library(tidymodels)
#> Registered S3 method overwritten by 'tune':
#>   method                   from   
#>   required_pkgs.model_spec parsnip
#> Warning: package 'broom' was built under R version 4.1.2
tidymodels_prefer()
theme_set(theme_bw())

data(meats)
meats <- meats %>% select(-protein, -fat)

glmn_spec <- 
 linear_reg(penalty = 0.1) %>% 
  set_engine("glmnet")
rec <- 
  recipe(water ~ ., data = meats) %>% 
  step_normalize(all_predictors())

glmn_fit <- 
  workflow(rec, glmn_spec) %>% 
  fit(meats)
  
autoplot(glmn_fit)

autoplot(glmn_fit, min_penalty = 0.01, top_n = 2)

^{Created on 2022-02-01 by the reprex package (v2.0.1)}

[EmilHvitfeldt]

I know it would require a bit more work. But what about showing the labels on the dotted line when best_penalty is specified? Something like this?

[EmilHvitfeldt]

Added a commit to have labels follow best_penalty line

library(tidymodels)
tidymodels_prefer()
theme_set(theme_bw())

data(meats)
meats <- meats %>% select(-protein, -fat)

glmn_spec <- 
  linear_reg(penalty = 0.1) %>% 
  set_engine("glmnet")
rec <- 
  recipe(water ~ ., data = meats) %>% 
  step_normalize(all_predictors())

glmn_fit <- 
  workflow(rec, glmn_spec) %>% 
  fit(meats)

autoplot(glmn_fit)

autoplot(glmn_fit, best_penalty = 0.033)

autoplot(glmn_fit, best_penalty = 0.6)

^{Created on 2022-02-08 by the reprex package (v2.0.1)}

[juliasilge]

I fixed the broken GH actions in a previous PR if you want to merge from main.

[github-actions]

This pull request has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.