如何将下方单元格值添加至上方单元格？R语言数据框处理求助

嘿，我来帮你搞定这个需求！你想要把每一行下方的非0单元格内容，拼到上方对应的0单元格前面（比如把第2行的"D"和第1行的"0"拼成"D0"），同时保留原非0行的内容对吧？咱们可以用R里的两种方法来实现，一种是直观的循环（适合新手理解），另一种是更简洁的向量化操作（符合R的高效风格），一起来看看吧~

第一步：先构造原始数据框 #

首先咱们先把你的代码重新写一遍，确保数据框是字符类型（避免后续拼接出问题）：

a <- c(0,"D",0,"E",0,"F")
b <- c(0,"E",0,"F",0,"D")
# 转换为数据框并指定stringsAsFactors=FALSE，避免自动转成因子
df <- as.data.frame(cbind(a, b), stringsAsFactors = FALSE)

此时原始数据框df的内容是：

a b
1 0 0
2 D E
3 0 0
4 E F
5 0 0
6 F D

方法一：用循环处理（直观易懂） #

因为你的数据规律很明显——奇数行都是"0"，偶数行是目标字母，所以咱们可以遍历每一列，把每个偶数行的字母拼到上一行的"0"前面：

# 遍历数据框的每一列
for (col in colnames(df)) {
  # 选取奇数行（1、3、5行），将下一行（偶数行）的内容与当前行的"0"拼接
  df[seq(1, nrow(df), 2), col] <- paste0(df[seq(2, nrow(df), 2), col], df[seq(1, nrow(df), 2), col])
}

方法二：向量化操作（高效简洁） #

如果你的数据量比较大，向量化操作会比循环更快，这里用mapply来批量处理每一列：

# 对奇数行进行批量拼接：把偶数行的内容拼到奇数行的"0"前面
df[seq(1, nrow(df), 2), ] <- mapply(
  function(top_val, bottom_val) paste0(bottom_val, top_val),
  df[seq(1, nrow(df), 2), ],
  df[seq(2, nrow(df), 2), ]
)

最终结果 #

两种方法运行后，你都会得到期望的结果：

print(df)

输出内容：

a   b
1 D0 E0
2  D  E
3 E0 F0
4  E  F
5 F0 D0
6  F  D

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