如何用R为列中非空值复制对应列名？求实现代码

没问题，我来帮你搞定这个需求。先还原你的数据集，再通过简单的R代码完成替换并输出每行的目标列名。

步骤1：构造原始数据集 #

按照你给出的列名和数据行创建数据框（注意R里的缺失值是大写的NA，还要保留列名里的空格）：

# 创建匹配的数据集
df <- data.frame(
  "A header" = c(1, NA, 7, NA),
  "Another header" = c(6, NA, NA, 3.5),
  "Another header" = c(NA, 5, NA, NA),
  check.names = FALSE  # 阻止R自动修改带空格的列名
)

步骤2：编写处理逻辑 #

定义一个单行处理函数，再用apply批量应用到每一行：

# 定义单行处理函数：提取非NA值对应的列名并拼接成字符串
process_row <- function(row_data) {
  # 筛选该行非NA的位置
  non_missing_pos <- !is.na(row_data)
  # 获取对应的列名
  target_cols <- names(df)[non_missing_pos]
  # 用空格连接列名
  paste(target_cols, collapse = " ")
}

# 对每一行应用处理函数
output <- apply(df, MARGIN = 1, FUN = process_row)

步骤3：查看结果 #

运行上述代码后，output就是你想要的结果：

print(output)
# 输出结果：
# [1] "A header Another header" 
# [2] "Another header"          
# [3] "A header"                
# [4] "Another header"

这个逻辑的核心是：对每行判断哪些位置不是缺失值，提取这些位置对应的列名，最后把列名用空格连接成字符串。

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