R语言如何通过if语句逐行判断为数据框新增列

你的代码存在两个核心问题：

• R的if/else语法规则错误：else必须紧接if语句的闭合大括号，不能放在if的代码块内部用分号分隔，你写的print("-"); else结构会让R解析时认为if语句已经结束，后续的else和多余的大括号属于非法语法，因此抛出unexpected '}'报错。
• 冗余调用：dplyr的mutate会直接取表达式的返回值作为新列内容，不需要额外调用print()函数。

另外你用rowwise()逐行迭代是不必要的，R的向量化判断函数ifelse()可以直接对整列操作，运行效率更高。

推荐写法（向量化，无需逐行分组） #

library(dplyr)
# 取需要的前6行drat、wt列做演示
df <- head(mtcars)[, c(5,6)]
df <- df %>% mutate(strand = ifelse(drat > wt, "-", "+"))

修正原if/else逻辑的写法（如果需要保留逐行判断结构） #

如果一定要用if/else分支结构，注意语法格式，用完rowwise()后建议加ungroup()取消行分组，避免后续数据处理出现意外：

df <- head(mtcars)[, c(5,6)] %>%
  rowwise() %>%
  mutate(strand = if (drat > wt) {
    "-"
  } else {
    "+"
  }) %>%
  ungroup()

两种写法都会输出你期望的结果：

drat    wt strand
1 3.90 2.620      -
2 3.90 2.875      -
3 3.85 2.320      -
4 3.08 3.215      +
5 3.15 3.440      +
6 2.76 3.460      +

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