在R语言中如何将指定列转为现有列的行并追加？

以下是两种适合R语言中处理该需求的方法，基于你提供的tibble数据结构：

方法1：直接构造并绑定行 #

这种方法简单直观，适合固定4列的场景：

library(dplyr)

# 你的原始数据
df <- tibble(a = c(1, 1), b = c(2, 2), c = c(3, 3), d = c(4, 4))

# 合并前两列与重命名后的后两列
df1 <- bind_rows(
  df %>% select(a, b),          # 保留原a、b列
  df %>% select(a = c, b = d)   # 将c、d列重命名为a、b
)

# 查看结果
df1

运行后会得到你想要的4行2列数据框。

方法2：用数据重塑实现（更灵活） #

如果后续有更多成对的列需要转换（比如e、f列也需要转为a、b行），可以用tidyr的pivot_longer进行批量处理：

library(tidyr)
library(dplyr)

df1 <- df %>%
  # 按列名分组，将成对列的数值映射到统一的a、b列
  pivot_longer(
    everything(),
    names_to = c(".value", "group"),
    names_pattern = "(.)(.)"  # 匹配单字符列名，若列名是多字符可调整正则
  ) %>%
  select(-group)  # 移除临时生成的分组列

df1

这个方法的优势在于无需手动指定每一列，只要列名符合成对的规律，就能自动完成转换。

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