如何基于另一个字段的值向DataFrame字段追加指定文本？

首先注意：你用cbind()创建的df是字符矩阵，建议先转换为数据框，避免后续字符串处理的问题：

field_x <- c("A", "A", "C", "B", "B", "C")
field_y <- c("Axl", "Slash", "Duff", "Steven", "Izzy", "Dizzy")

# 转换为数据框
df <- data.frame(field_x, field_y, stringsAsFactors = FALSE)

下面提供几种常用的实现方式：

方法1：基础R嵌套ifelse #

适合类别较少的场景，无需额外依赖：

df$field_y <- ifelse(df$field_x == "A",
                     paste(df$field_y, "(Apple)"),
                     ifelse(df$field_x == "B",
                            paste(df$field_y, "(Ball)"),
                            paste(df$field_y, "(Cat)")))

方法2：映射向量匹配 #

适合类别较多的场景，代码更简洁易维护：

# 创建field_x到追加文本的映射
text_map <- c("A" = "(Apple)", "B" = "(Ball)", "C" = "(Cat)")

# 拼接文本
df$field_y <- paste(df$field_y, text_map[df$field_x])

方法3：tidyverse(dplyr)的case_when #

适合习惯tidyverse风格的用户，逻辑更清晰：

library(dplyr)

df <- df %>%
  mutate(field_y = case_when(
    field_x == "A" ~ paste(field_y, "(Apple)"),
    field_x == "B" ~ paste(field_y, "(Ball)"),
    field_x == "C" ~ paste(field_y, "(Cat)")
  ))

三种方法都能得到你期望的结果：

# 输出结果
df
#   field_x        field_y
# 1       A    Axl (Apple)
# 2       A  Slash (Apple)
# 3       C     Duff (Cat)
# 4       B  Steven (Ball)
# 5       B    Izzy (Ball)
# 6       C    Dizzy (Cat)

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