R-将data.frame行乘以row中的值

Question

我的data.frame看起来像：

data.frame(session_id = c(1,2,1)
, date = c("2019-12-23", "2019-12-23", "2019-12-24")
, count = c(3, 1, 2))

我想按” count”的值来增加行数。最终结果应如下所示：

data.frame(session_id = c(1,1,1,2,1,1)
, date = c("2019-12-23", "2019-12-23", "2019-12-23", "2019-12-24"))

实际上，我使用for循环（减少“ count”中的值并在“ count> 0”上进行过滤）。效果不错，但速度很慢。仅几百万行需要一个小时。

有没有更好的做事方法？