R：用升序填充 NA 值

With R我想用升序/降序数字（整数）填充一列大部分为 NA 值的列，但相对于值为 0 的行。编号应按主题（第一列）分组。这听起来很混乱，所以请看这个例子。 数据如下所示（Column_3 是当前数据，Column_4 是目标数据）：

因此，所有受试者都有一定的访问次数 (1-5)，并且在第 3 列中用 0 表示某个访问次数（每个受试者不同）。在第 4 列中，我希望按照访问次数按升序排列数字用0表示。

目前我尝试制作一个管道dplyr:

df <- df %>% group_by(Subject) %>%
     mutate(
    column 4 = lag(Column_3, 1),
    code here
    ) %>%
    ungroup()

我正在尝试利用fill() and lag() and lead()，但我不知道在这种情况下如何有效地使用这些（不幸的是我也没有找到“低效”的方法）。

欢迎提出建议！

略有不同的选项：

library(tidyverse)
df %>%
  group_by(Subject) %>%
  mutate(column_4 = row_number() - row_number()[!is.na(column_3 == 0)]) %>%
  ungroup()