'Increase number of rows by vector
I have this dataframe:
df <- data.frame(
ID = 1:5,
Subject = c("A","A","B","B","C"),
Duration = c(3,2,2,4,5)
)
The task is straightforward: I need to increase the number of rows by the vector in column Duration. That is, for example, Durationin row #1 is 3; so this row should be triplicated. Duration in row #2 is 2; so this row should be duplicated, and so on. How can this be done?
Expected:
ID Subject Duration
1 1 A 3
2 1 A 3
3 1 A 3
4 2 A 2
5 2 A 2
6 3 B 2
7 3 B 2
8 4 B 4
9 4 B 4
10 4 B 4
11 4 B 4
12 5 C 5
13 5 C 5
14 5 C 5
15 5 C 5
16 5 C 5
I'm grateful for any solution, particularly for a dplyr one.
Solution 1:[1]
We could use slice:
library(dplyr)
df %>%
slice(rep(row_number(), Duration))
ID Subject Duration
1 1 A 3
2 1 A 3
3 1 A 3
4 2 A 2
5 2 A 2
6 3 B 2
7 3 B 2
8 4 B 4
9 4 B 4
10 4 B 4
11 4 B 4
12 5 C 5
13 5 C 5
14 5 C 5
15 5 C 5
16 5 C 5
Solution 2:[2]
The function you need is tidyr::uncount.
library(tidyr)
uncount(df, Duration, .remove = F)
ID Subject Duration
1 1 A 3
2 1 A 3
3 1 A 3
4 2 A 2
5 2 A 2
6 3 B 2
7 3 B 2
8 4 B 4
9 4 B 4
10 4 B 4
11 4 B 4
12 5 C 5
13 5 C 5
14 5 C 5
15 5 C 5
16 5 C 5
Sources
This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.
Source: Stack Overflow
| Solution | Source |
|---|---|
| Solution 1 | TarJae |
| Solution 2 | benson23 |