在 dplyr 中重复 data.frame 的行

Question

这个问题在这里已经有了答案:





Repeat each row of data.frame the number of times specified in a column

(9 个回答)


去年关闭。




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

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

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
    #*
    #*
    #*

Answer 1

使用 uncount函数也可以解决这个问题。栏目count指示应重复一行的频率。

library(tidyverse)

df <- tibble(letters = letters[1:4])

df 
# A tibble: 4 x 1
  letters
  <chr>  
1 a      
2 b      
3 c      
4 d 

df %>%
  mutate(count = c(2, 3, 2, 4)) %>%
  uncount(count)

# A tibble: 11 x 1
   letters
   <chr> 
 1 a      
 2 a      
 3 b      
 4 b      
 5 b      
 6 c      
 7 c      
 8 d      
 9 d      
10 d      
11 d