如何根据列的值删除列并增加行数[重复]

Question

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

重复每一行 data.frame 列中指定的次数(9 个回答)

3 天前关闭。

我对 R 比较陌生。我有一个包含 939 行的数据框，如下所示：

美食	订单数量	客户ID
快餐	2	1
蛋糕	3	1
西	4	2
中国人	5	3

我想要的是摆脱 Numbers.of.order 列并将列内的值添加为添加行。

像这样的东西：

美食	客户ID
快餐	1
快餐	1
蛋糕	1
蛋糕	1
蛋糕	1
西	2
西	2
西	2
西	2
中国人	3
中国人	3
中国人	3
中国人	3
中国人	3

我这样做是为了将其转换为关联规则的事务数据帧。

任何帮助将不胜感激！！

Answer 1

您可以使用以下解决方案：

library(dplyr)

df %>%
    uncount(Number.of.order)

    cuisine Customer_id
1  Fastfood           1
2  Fastfood           1
3     cakes           1
4     cakes           1
5     cakes           1
6   Western           2
7   Western           2
8   Western           2
9   Western           2
10  Chinese           3
11  Chinese           3
12  Chinese           3
13  Chinese           3
14  Chinese           3

Answer 2

带有rep base R的选项

out <- df1[rep(seq_len(nrow(df1)), df1$Number.of.order), -2]
row.names(out) <- NULL

-输出

out
    cuisine Customer_id
1  Fastfood           1
2  Fastfood           1
3     cakes           1
4     cakes           1
5     cakes           1
6   Western           2
7   Western           2
8   Western           2
9   Western           2
10  Chinese           3
11  Chinese           3
12  Chinese           3
13  Chinese           3
14  Chinese           3