magrittr管道中使用if条件语句的方法及dplyr实操问题

具体问题解决方案 #

你的需求属于行级条件处理，不能直接用if控制流实现，原因是if只能判断长度为1的逻辑值，而你传入的starts_with_position是列向量，同时直接在管道后接if语句也不符合管道的传值规则。可以参考下面两种实现方式：

方案1：内置条件函数实现（代码更简洁） #

在mutate中用if_else逐行判断，仅对符合条件的行执行处理逻辑：

library(dplyr)
library(tidyr)

df_parse <- df_parse %>%
  mutate(dup_value2 = missing_vars) %>%
  extract(col = dup_value2, into = "position2", regex = "(\\d+\\s*-\\s*\\d+)$", remove = FALSE) %>%
  mutate(
    position2 = if_else(starts_with_position, position2, NA_character_),
    id2 = if_else(starts_with_position, gsub(pattern = "\\t.*", replacement = "", x = missing_vars), NA_character_),
    desc2 = if_else(starts_with_position, gsub(".*\\t\\d*\\t|\\d+\\s*-\\s*\\d+$", replacement = "", x = missing_vars), NA_character_)
  ) %>%
  select(-dup_value2)

方案2：拆分合并实现（适合复杂处理逻辑） #

把数据集按条件拆分，符合条件的行执行完整处理逻辑，不符合条件的行直接补空列后合并：

df_parse <- bind_rows(
  # 符合条件的行执行处理
  df_parse %>% 
    filter(starts_with_position) %>%
    mutate(dup_value2 = missing_vars) %>% 
    extract(col = dup_value2, into = "position2", regex = "(\\d+\\s*-\\s*\\d+)$") %>%
    mutate(
      id2 = gsub(pattern = "\\t.*", replacement = "", x = missing_vars),
      desc2 = gsub(".*\\t\\d*\\t|\\d+\\s*-\\s*\\d+$", replacement = "", x = missing_vars)
    ),
  # 不符合条件的行补空列
  df_parse %>% 
    filter(!starts_with_position) %>%
    mutate(position2 = NA_character_, id2 = NA_character_, desc2 = NA_character_)
)

管道中if语句通用使用规则 #

首先解释你提到的示例代码中.的作用：%>%默认会把左侧的运算结果自动传入右侧函数的第一个参数，当你用大括号{}包裹复合表达式（比如if/else控制流）时，自动传值的逻辑会失效，需要手动用.指代管道左侧传入的完整数据集。
管道中的条件判断分两类场景，用法完全不同：

场景1：全局条件控制 #

判断条件是单个逻辑值，用于控制整段处理逻辑是否执行，比如根据参数决定要不要做某步清洗：

• 写法要求：用大括号{}包裹整个if/else块，所有用到管道传入数据集的地方手动加.，else分支必须返回原数据集.，保证后续管道能正常接收数据。
  示例：

# 全局参数控制要不要执行过滤
enable_filter <- TRUE
mtcars %>% 
  group_by(cyl) %>% 
  {
    if (enable_filter) {
      filter(., am == 1)
    } else {
      .
    }
  } %>%
  summarise(m = mean(wt))

场景2：行级条件处理 #

判断条件是数据集中的逻辑列，逐行决定要不要执行处理，不要用if控制流，改用if_else()或者case_when()函数处理即可。 #

内容的提问来源于stack exchange，提问作者richardgasquet