unpivot数据框 - 获取原始数据系列

Question

我需要清理以下数据框

df <- data.frame(metric=c(10,20,30,40,NA), cnt=c(1,2,1,2,2))
> df
  metric cnt
1     10   1
2     20   2
3     30   1
4     40   2
5     NA   2

我需要回到原始数据系列（un-pivot ??），如下所示。

  metric
1     10 
2     20  
3     20  
4     30  
5     40  
6     40  
7     NA  
8     NA 

这是tidyr的用例吗？如果是，基于tidyr的解决方案也会有所帮助。

Answer 1

我们可以使用IntlProvider

rep

Answer 2

反向RLE有函数Set-ADUser。见inverse.rle()：

help("rle")