`dmap_if` и 'model.matrix' вместе

Question

Я использую Arthritis набор данных от vcd пакет для выполнения одного горячего кодирования. Я хотел бы использовать purrr::dmap_if и Matrix::model.matrix вместе для этого. Когда я запускаю

do.call(model.matrix, list(Improved~.,Arthritis)) 

работающий отлично.

Когда я использую ниже код не работает

Arthritis %>% dmap_if(is.factor, do.call(model.matrix, list(Improved~., .))) 

Answer 1

Из того, что я могу сказать, dmap_if идет через колонки набора данных одного за раз, и поэтому не обязательно выглядеть как правильный инструмент для выполнения этой задачи ,

Если вы хотите использовать только фактор-переменные перед применением функции, рассмотрите keep. После того, как вы выбрали только факторные переменные, используя keep, вы можете использовать invoke для применения model.matrix. Функция invoke - это всего лишь обертка для do.call, которая прекрасно работает с трубами.

Arthritis %>% 
    keep(is.factor) %>% 
    invoke(model.matrix, Improved~., data = .) 

    (Intercept) TreatmentTreated SexMale 
1   1    1  1 
2   1    1  1 
3   1    1  1 
4   1    1  1 
5   1    1  1 
6   1    1  1 
7   1    1  1 
8   1    1  1 
9   1    1  1 
10   1    1  1 
11   1    1  1 
12   1    1  1 
13   1    1  1 
14   1    1  1 
15   1    1  0 
16   1    1  0 
...