R：用队列分析的数字替换列中的 0

Question

这个问题是我之前问题的延伸（点击here）

我把数据变成了这种格式：

我希望我的数据采用以下格式：

请注意，Month2 列第一行中的 0 被 Month2 列第二行中的 9 替换。同样，在 Month3 列中，0 被下面行中的数字替换

我想要实现的是将每列中的数字从低行移动到顶部行以替换 0

非常感谢任何帮助！ :)

编辑 我有与上面类似的数据集，但 0 位于不同的位置：

    x <- cbind(x1 = 10:17, x2 = c(4:1, 2:5),x3 = 21:28,x4 = 31:38, x5 = 41:48)
    x[][lower.tri(x[])] <- 0

 x1 x2 x3 x4 x5
 10  4 21 31 41
  0  3 22 32 42
  0  0 23 33 43
  0  0  0 34 44
  0  0  0  0 45
  0  0  0  0  0
  0  0  0  0  0
  0  0  0  0  0

我正在寻找如下输出：

 x1 x2 x3 x4 x5
 10  4 21 31 41
  3 22 32 42  0
 23 33 43  0  0
 34 44  0  0  0
 45  0  0  0  0
  0  0  0  0  0
  0  0  0  0  0
  0  0  0  0  0

我尝试修改@akrun 提供的早期代码。但是没有成功。

关于如何进行的任何指示？蒂亚！！！

Answer 1

你可以试试：

  apply(dat[,-(1:2)], 2, FUN=function(x) c(x[!!x],x[!x]) )
  #     Month2 Month3 Month4 Month5 Month6
  #[1,]      9      7      6      4      0
  #[2,]      9      5      3      0      0
  #[3,]      7      6      0      0      0
  #[4,]      8      0      0      0      0
  #[5,]      0      0      0      0      0

要保持data.frame 完整，最好使用lapply。一般来说，如果列属于不同的类，使用apply 会将其强制转换为矩阵，您通常会得到一个class。在这里，这无关紧要，因为列都是数字的。不过，我更喜欢lapply。

 dat[,-(1:2)] <- lapply(dat[,-(1:2)], function(x) c(x[!!x], x[!x]))
 dat
 #   Month_Start_Date Month1 Month2 Month3 Month4 Month5 Month6
 #1       2010-01-01     10      9      7      6      4      0
 #2       2010-02-01     10      9      5      3      0      0
 #3       2010-03-01     10      7      6      0      0      0
 #4       2010-04-01     10      8      0      0      0      0
 #5       2010-05-01     10      0      0      0      0      0