如何在数据框中关联复制向量并同步Rep与Beaker对应值

嘿，我完全懂你的需求！你已经成功用rep(df$days, times = df$Ndev)实现了days列的重复，但需要让对应的Rep和Beaker列也跟着同步重复，对吧？这里有几个在R里非常实用的方法，帮你轻松搞定：

方法1：Base R原生实现（无需额外包） #

直接对每一列使用rep()函数，统一用df$Ndev作为重复次数参数，最后重新组合成新的数据框即可：

# 假设你的原数据框结构类似这样
# df <- data.frame(Rep = c(1,2,3), Beaker = c("A","B","C"), days = c(2,3,1), Ndev = c(3,2,4))

# 生成同步重复后的新数据框
new_df <- data.frame(
  Rep = rep(df$Rep, times = df$Ndev),
  Beaker = rep(df$Beaker, times = df$Ndev),
  days = rep(df$days, times = df$Ndev)
)

这种方法逻辑直白，每一列都按照对应行的Ndev值重复，自然就能保证所有列的对应关系完全同步。

方法2：用dplyr的uncount()函数（简洁高效） #

如果你习惯使用tidyverse工具链，dplyr包的uncount()函数简直是为这个需求量身定做的——它会直接根据指定列的值重复整行数据，所有列自动同步：

library(dplyr)

# 一行代码搞定
new_df <- df %>% uncount(Ndev)

举个实际例子：假设原数据框是

df <- data.frame(
  Rep = c(1, 2),
  Beaker = c("X", "Y"),
  days = c(5, 3),
  Ndev = c(2, 4)
)

运行uncount后得到的结果就是：

完美实现了所有列的同步重复！

方法3：用data.table快速处理（适合大数据量） #

如果你的数据量很大，用data.table的方法会更高效：

library(data.table)
setDT(df) # 把普通数据框转为data.table格式

new_df <- df[rep(seq_len(.N), Ndev)]

这里seq_len(.N)生成原数据框的行号，rep()根据Ndev重复行号，最后通过行号索引原数据框，就能得到同步重复后的结果。

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