R 循环根据条件时的大小写创建新变量

我是R新手，尝试构建一个循环，在这个循环中创建一个新的变量，该变量基于一个case when conditional

for(i in 2:10){

  variable_1 <- paste0("a_", i)

  variable_2 <- paste0("b_", i)

  variable_3 <- paste0("c_", i)

  data1 <- data1 %>%
  mutate_(variable_3 = case_when(is.na(variable_1) & !is.na(variable_2) ~ 0,
                                 TRUE ~ 1))
}

for（2:10中的i）{
变量1我们可能需要执行赋值
：=
，计算（
！！
的
lhs
上的表达式：=

，以及将列对象作为字符串转换为符号（

sym

）并计算（

！！

）

for（2:10中的i）{
变量1我们可能需要执行赋值
：=
，计算（
！！
的
lhs
上的表达式：=

，以及将列对象作为字符串转换为符号（

sym

）并计算（

！！

）

for（2:10中的i）{
变量_1
for(i in 2:10){

   variable_1 <- paste0("a_", i)
   variable_2 <- paste0("b_", i)
   variable_3 <- paste0("c_", i)
   data1 <- data1 %>%
    mutate(!! variable_3 := case_when(is.na(!! rlang::sym(variable_1)) & 
     !is.na(!! rlang::sym(variable_2) )~ 0,
                             TRUE ~ 1))
  }