如何在R中作为单个语句一起执行多个语句

Question

我有以下数据集

      company product_code product_number                                FullAddress             name
1     philips            p              5 Groningensingel 147,arnhem,the netherlands    dhr p. jansen
2     philips            p             43 Groningensingel 148,arnhem,the netherlands    dhr p. hansen
3     philips            x              3 Groningensingel 149,arnhem,the netherlands    dhr j. Gansen
4     philips            x             34 Groningensingel 150,arnhem,the netherlands    dhr p. mansen
5     philips            x             12 Groningensingel 151,arnhem,the netherlands   dhr p. fransen
6     philips            p             23 Groningensingel 152,arnhem,the netherlands  dhr p. franssen
7        akzo            v             43   Leeuwardenweg 178,arnhem,the netherlands    dhr p. bansen
8        akzo            v             12   Leeuwardenweg 179,arnhem,the netherlands    dhr p. vansen
9        akzo            x              5   Leeuwardenweg 180,arnhem,the netherlands   dhr p. bransen

我正在尝试根据＆＃39; 公司＆＃39;的值创建两个新变量（product_philips和product_akzo）。变量，即基于以下条件的 philips和akzo 。

我正在尝试执行以下语句，

> refine_original %>% mutate(product_philips = (if_else(grepl(pattern='philips', x=refine_original$company), 1, 0)))

> refine_original %>% mutate(product_ = (if_else(grepl(pattern='philips', x=refine_original$company), 1, 0)))

我想要而不是运行两次是否有任何方式我可以立即运行，我知道使用case_when函数的另一种方式。但我想使用与上面相同的逻辑和函数，并实现一个语句而不是运行多个语句的结果。

我想使用dplyr包实现一切，因为我想更多地学习它。如果有人能提供他们的观点，我会非常高兴。