在 dplyr 中重复 data.frame 的行

本文介绍了在 dplyr 中重复 data.frame 的行的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我在使用 dplyr 重复我的真实数据行时遇到问题.这里已经有另一篇文章repeat-rows-of-a-data-frame 但没有针对 dplyr 的解决方案.

I have a trouble with repeating rows of my real data using dplyr. There is already another post in here repeat-rows-of-a-data-frame but no solution for dplyr.

在这里，我只是想知道 dplyr 的解决方案如何但因错误而失败:

Here I just wonder how could be the solution for dplyr but failed with error:

错误:错误的结果大小 (16)，预期为 4 或 1

Error: wrong result size (16), expected 4 or 1

library(dplyr) df <- data.frame(column = letters[1:4]) df_rep <- df%>% mutate(column=rep(column,each=4))

预期输出

>df_rep column #a #a #a #a #b #b #b #b #* #* #*

推荐答案

如果 data.frame 有其他列(那里，我说过！)，但是 do 块，这是充满危险的将允许您在 dplyr 管道中生成派生的 data.frame(尽管，ceci n'est pas un pipe):

This is rife with peril if the data.frame has other columns (there, I said it!), but the do block will allow you to generate a derived data.frame within a dplyr pipe (though, ceci n'est pas un pipe):

library(dplyr) df <- data.frame(column = letters[1:4], stringsAsFactors = FALSE) df %>% do( data.frame(column = rep(.$column, each = 4), stringsAsFactors = FALSE) ) # column # 1 a # 2 a # 3 a # 4 a # 5 b # 6 b # 7 b # 8 b # 9 c # 10 c # 11 c # 12 c # 13 d # 14 d # 15 d # 16 d

正如@Frank 所建议的，一个更好的选择可能是

As @Frank suggested, a much better alternative could be

df %>% slice(rep(1:n(), each=4))