library(readr)
library(tidyr)
sample_data <- read_delim(file = "ID Category Value
1 S 3
1 M 2
2 S 1
2 M 4",
delim = " ",
col_names = TRUE)
sample_data %>%
uncount(weights = Value)
#> # A tibble: 10 x 2
#> ID Category
#> <dbl> <chr>
#> 1 1 S
#> 2 1 S
#> 3 1 S
#> 4 1 M
#> 5 1 M
#> 6 2 S
#> 7 2 M
#> 8 2 M
#> 9 2 M
#> 10 2 M