R 中多个变量的分层随机抽样

Question

我在 R 中使用 tidymodels，需要对两个变量进行分层抽样以拆分为训练和测试数据。下面的可重现代码使用单列“cyl”。如何同时使用“cyl”和“gear”进行采样？

library(tidymodels)
library(tidyverse)

split <- initial_split(mtcars, prop = 0.7, strata = cyl)
train <- split %>%  training()
test <- split %>%  testing()