如何在R数据框中基于数值计数列将单行扩展为对应数量的独立行

这其实是个很常见的数据整理需求，我平时处理这类数据时，常用两种简单方法来实现，完全匹配你要把每个测量值拆成单独行的需求！

方法一：用tidyverse::uncount()（推荐） #

这个函数就是专门为这类场景设计的，简洁又高效。首先确保你已经安装并加载了tidyverse包：

install.packages("tidyverse")
library(tidyverse)

然后直接对数据框执行扩展操作，指定按Value列的数值重复行：

# 按Value列的数值，将对应行重复指定次数
expanded_rb.len <- rb.len %>% uncount(Value)

# 查看扩展后的结果
head(expanded_rb.len)

执行后，原来Value为17的那行（Length=14.5）会直接拆成17条独立记录，其他列（Year、Total等）的数值也会对应保留，正好满足你的后续分析需求。

方法二：基础R实现（无需额外包） #

如果你不想加载第三方包，用基础R的rep()函数也能搞定：

# 生成行索引向量，每个行号重复的次数等于该行的Value值
row_indices <- rep(seq(nrow(rb.len)), rb.len$Value)
# 按索引提取行，得到扩展后的数据框
expanded_rb.len <- rb.len[row_indices, ]

这个方法的逻辑是先构建一个重复的索引序列，再用这个序列从原数据框中提取对应行，最终效果和第一种方法完全一致。

两种方法都能轻松解决你的问题，其中uncount()更符合tidyverse的简洁风格，可读性更高。

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