R语言如何按条件向数据框列单元格追加拼接文本字符串

原有写法无法得到预期结果的核心原因：

• 对筛选后的行直接赋值新字符串时，本质是覆盖单元格原有内容，而非在已有字符串基础上追加文本
• 逻辑未覆盖Col1=5、Col2=9的边界场景，会导致对应行缺失部分描述片段

小提示：不推荐使用df[筛选条件,]$列名的形式赋值，这种写法操作的是数据框子集的临时副本，可能出现赋值失效问题，更稳妥的写法是df$列名[筛选条件]直接定位目标单元格。

方法1：分片段生成后一次性拼接（推荐） #

先按行生成Col1、Col2对应的独立描述片段，再统一和前缀拼接，逻辑清晰不易漏判：

# 构建示例数据
Col1 <- 1:10
Col2 <- 15:6
df <- data.frame(Col1, Col2)

# 生成Col1对应描述，等于5的文案可按需调整
col1_desc <- ifelse(
  df$Col1 > 5,
  " Col1) This number is high.",
  ifelse(df$Col1 < 5, " Col1) This number is low.", " Col1) This number is medium.")
)

# 生成Col2对应描述，等于9的文案可按需调整
col2_desc <- ifelse(
  df$Col2 > 9,
  " Col2) This number is high.",
  ifelse(df$Col2 < 9, " Col2) This number is low.", " Col2) This number is medium.")
)

# 拼接得到最终列
df$Eval <- paste0("Evaluation:", col1_desc, col2_desc)

执行后第一行Eval列的结果完全符合预期：Evaluation: Col1) This number is low. Col2) This number is high.

方法2：逐次追加写法 #

如果要保留初始化列之后逐段追加内容的逻辑，赋值时需要取到对应行的原有值，和新文本拼接后再回写，而非直接替换：

# 初始化Eval列
df$Eval = "Evaluation:"

# 追加Col1相关描述
df$Eval[df$Col1 > 5] <- paste0(df$Eval[df$Col1 > 5], " Col1) This number is high.")
df$Eval[df$Col1 < 5] <- paste0(df$Eval[df$Col1 < 5], " Col1) This number is low.")
df$Eval[df$Col1 == 5] <- paste0(df$Eval[df$Col1 == 5], " Col1) This number is medium.")

# 追加Col2相关描述
df$Eval[df$Col2 > 9] <- paste0(df$Eval[df$Col2 > 9], " Col2) This number is high.")
df$Eval[df$Col2 < 9] <- paste0(df$Eval[df$Col2 < 9], " Col2) This number is low.")
df$Eval[df$Col2 == 9] <- paste0(df$Eval[df$Col2 == 9], " Col2) This number is medium.")

这种写法需要手动补全所有边界分支，维护成本更高，更推荐第一种一次性拼接的实现。

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