如何在R语言中将x、y列按水平方向拆分为多列？

根据你的需求，这里提供几种无需额外复杂包或轻量包的实现方式，分两种常见场景说明：

场景1：将每一行的x/y转为单独的列对（42行转1行，共84列） #

假设你的原始数据是包含x和y两列的数据框，各42个数据点：

# 构造示例数据
set.seed(123)
df <- data.frame(x = rnorm(42), y = rnorm(42))

Base R 实现 #

无需安装额外包，直接通过unlist和转置实现：

# 将数据转为宽格式（一行）
wide_single_row <- as.data.frame(t(unlist(df)))
# 重命名列名为x1、y1、x2、y2...
colnames(wide_single_row) <- paste0(rep(c("x", "y"), each = nrow(df)), 1:nrow(df))

Tidyverse 实现 #

用dplyr和tidyr的组合更直观：

library(tidyverse)

wide_single_row <- df %>%
  mutate(id = row_number()) %>% # 给每行添加序号
  pivot_wider(names_from = id, values_from = c(x, y)) %>% # 转宽格式
  # 重命名列，去掉默认的下划线
  rename_with(~str_replace(., "(x|y)_(\\d+)", "\\1\\2"))

场景2：将x/y按固定大小分组，每组转为一列对（比如每组7个数据，共6组） #

如果需要把42个数据点分成若干组（比如6组，每组7个），得到x1（前7个x）、y1（前7个y）、x2（接下来7个x）等列：

Base R 实现 #

group_size <- 7 # 设定每组数据量
n_groups <- nrow(df) / group_size # 计算组数

# 拆分x和y列
x_groups <- split(df$x, rep(1:n_groups, each = group_size))
y_groups <- split(df$y, rep(1:n_groups, each = group_size))

# 合并为数据框并命名列
grouped_df <- data.frame(do.call(cbind, mapply(cbind, x_groups, y_groups, SIMPLIFY = FALSE)))
colnames(grouped_df) <- paste0(rep(c("x", "y"), n_groups), rep(1:n_groups, each = 2))

Tidyverse 实现 #

group_size <- 7

grouped_df <- df %>%
  mutate(
    group = rep(1:(nrow(.)/group_size), each = group_size), # 分组编号
    row_in_group = row_number() %% group_size,
    row_in_group = ifelse(row_in_group == 0, group_size, row_in_group) # 组内行号
  ) %>%
  pivot_wider(names_from = group, values_from = c(x, y), names_sep = "") %>%
  select(-row_in_group) # 移除辅助列

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