如何将4×4数据集转换为16×1单行？Excel及R实现方案求助

Excel 优先方案 #

方法1：公式法（灵活适配任意大小数据集） #

转成单列（16×1格式）

假设原数据区域为$A$1:$D$4（4列4行共16个值），在空白单元格（如E1）输入公式后下拉：

=INDEX($A$1:$D$4, INT((ROW()-1)/COLUMNS($A$1:$D$4))+1, MOD((ROW()-1), COLUMNS($A$1:$D$4))+1)

公式逻辑：通过ROW()计算当前行位置，用INT和MOD循环定位原数据的行和列。

转成单行

把公式中的ROW()替换为COLUMN()，横向拉即可：

=INDEX($A$1:$D$4, MOD((COLUMN()-1), ROWS($A$1:$D$4))+1, INT((COLUMN()-1)/ROWS($A$1:$D$4))+1)

方法2：Power Query（适合大数据集，可复用） #

1. 选中原数据区域，点击「数据」→「从表格/区域」（按需勾选“我的表格有标题”）
2. 在Power Query编辑器中，选中所有列，点击「转换」→「逆透视列」→「逆透视其他列」
3. 删除自动生成的「属性」列，只保留「值」列
4. 点击「关闭并上载」得到单列结果；若要单行，选中值列后点击「转换」→「转置」

方法3：快速填充（适合小数据集） #

手动输入前2-3个单元格的引用（比如E1=A1、E2=A2、E5=B1），选中已输入内容后按Ctrl+E，Excel会自动识别规律填充剩余数据。

R语言方案 #

使用readxl读取Excel数据，tidyr做格式转换：

1. 安装依赖包（首次使用）：

install.packages(c("readxl", "tidyr"))

2. 核心代码：

library(readxl)
library(tidyr)

# 读取数据（替换为你的文件路径和表名）
df <- read_excel("your_data.xlsx", sheet = "Sheet1")

# 转成单列（16×1）
single_col <- df %>% pivot_longer(everything(), values_to = "value") %>% select(value)

# 转成单行
single_row <- t(single_col) %>% as.data.frame()

# 保存结果（可选）
write.csv(single_col, "single_column_result.csv", row.names = FALSE)

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