R tune merge.recipe 将参数网格值合并到对象中

# S3 method for recipe
merge(x, y, ...)

# S3 method for model_spec
merge(x, y, ...)

library(tibble)
library(recipes)
library(parsnip)
library(dials)
#> Loading required package: scales
#> 
#> Attaching package: ‘scales’
#> The following object is masked from ‘package:purrr’:
#> 
#>     discard

pca_rec <-
  recipe(mpg ~ ., data = mtcars) %>%
  step_impute_knn(all_predictors(), neighbors = tune()) %>%
  step_pca(all_predictors(), num_comp = tune())

pca_grid <-
  tribble(
    ~neighbors, ~num_comp,
             1,         1,
             5,         1,
             1,         2,
             5,         2
  )

merge(pca_rec, pca_grid)
#> # A tibble: 4 × 1
#>   x       
#>   <list>  
#> 1 <recipe>
#> 2 <recipe>
#> 3 <recipe>
#> 4 <recipe>

spline_rec <-
  recipe(mpg ~ ., data = mtcars) %>%
  step_ns(disp, deg_free = tune("disp df")) %>%
  step_ns(wt, deg_free = tune("wt df"))

spline_grid <-
  tribble(
    ~"disp df", ~ "wt df",
    3,         3,
    5,         3,
    3,         5,
    5,         5
  )

merge(pca_rec, pca_grid)
#> # A tibble: 4 × 1
#>   x       
#>   <list>  
#> 1 <recipe>
#> 2 <recipe>
#> 3 <recipe>
#> 4 <recipe>

data(hpc_data, package = "modeldata")

xgb_mod <-
  boost_tree(trees = tune(), min_n = tune()) %>%
  set_engine("xgboost")

set.seed(254)
xgb_grid <-
  extract_parameter_set_dials(xgb_mod) %>%
  finalize(hpc_data) %>%
  grid_max_entropy(size = 3)

merge(xgb_mod, xgb_grid)
#> # A tibble: 3 × 1
#>   x        
#>   <list>   
#> 1 <spec[?]>
#> 2 <spec[?]>
#> 3 <spec[?]>