如何在R中基于X列特定文本拼接对应Y列数据？

完全可以实现这个需求，下面给你两种适合新手的方法：

方法1：用基础R的apply函数（灵活适配任意数量的X-Y列） #

先模拟一个和你结构一致的数据集（直接替换成你自己的数据即可）：

# 用tibble创建数据框，也可以用基础R的data.frame
library(tibble)
df <- tibble(
  X1 = c("a", "b", "a"),
  Y1 = c("b", "d", "e"),
  X2 = c("a", "a", "c"),
  Y2 = c("c", "f", "g"),
  X3 = c("c", "a", "a"),
  Y3 = c("h", "i", "j"),
  # 继续添加X4-Y4到X10-Y10，格式和上面一致
  X4 = c("a", "c", "b"),
  Y4 = c("k", "l", "m")
)

运行以下代码生成Z列：

# 设置你要匹配的特定文本
target_text <- "a"

# 逐行处理数据
df$Z <- apply(df, 1, function(row) {
  # 自动识别所有以X开头的列（X1到X10）
  x_col_indices <- grep("^X\\d+$", names(df))
  # 对应的Y列是X列的下一列（X1对应Y1，索引+1）
  y_col_indices <- x_col_indices + 1
  
  # 筛选出X列等于目标文本的对应Y值
  matched_y_values <- row[y_col_indices][row[x_col_indices] == target_text]
  
  # 用分号拼接筛选出的Y值，无匹配时返回空字符串
  paste(matched_y_values, collapse = ";")
})

方法2：用dplyr包（更直观，适合新手逐行写逻辑） #

如果你习惯dplyr的管道语法，这种方法更易懂：

library(dplyr)

target_text <- "a"

df <- df %>%
  rowwise() %>% # 切换为按行处理模式
  mutate(
    Z = paste(
      # 逐个判断每对X-Y列，符合条件就取Y值，否则设为NA
      ifelse(X1 == target_text, Y1, NA),
      ifelse(X2 == target_text, Y2, NA),
      ifelse(X3 == target_text, Y3, NA),
      ifelse(X4 == target_text, Y4, NA),
      ifelse(X5 == target_text, Y5, NA),
      ifelse(X6 == target_text, Y6, NA),
      ifelse(X7 == target_text, Y7, NA),
      ifelse(X8 == target_text, Y8, NA),
      ifelse(X9 == target_text, Y9, NA),
      ifelse(X10 == target_text, Y10, NA)
    ) %>% na.omit(), # 去掉所有NA值
    collapse = ";" # 用分号拼接剩余的Y值
  ) %>%
  ungroup() # 取消按行处理模式

两种方法都能实现你的需求：比如示例数据的第一行，X1、X2、X4都是"a"，对应的Y值是"b"、"c"、"k"，Z列就会得到b;c;k。

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