如何计算和添加毫秒来复制POSIXct时间戳？

Question

我有一个重复的POSIXct时间戳数据集，我想加毫秒。

我尝试按dplyr中的时间戳进行分组，并使用每个组中的计数将毫秒计算为1 / group_count并添加到时间戳中。但是，我无法从传递给该函数的行名中获取值，该函数只是试图将毫秒添加到该列名的char中。

calculate_milliseconds <- function(dataset, target_var, new_col_name,...)
{
  target_var <- enquo(target_var) 
  new_col_name <- quo_name(new_col_name)
  dataset$timestamp_count <- subgroup_count(dataset, ...)
  dataset %>%
    group_by_(...) %>%
    mutate(!! new_col_name := if_else(timestamp_count > 1 , !! target_var + 1/timestamp_count,!!  target_var)) %>%
    ungroup() %>%
    select(!! new_col_name)
}

因此，对于具有这样重复时间戳的列。

2015-10-22 13:30:17,
2015-10-22 13:30:17,
2015-10-22 13:30:17,
2015-10-22 13:30:17,
2015-10-22 13:30:17

我正在尝试获取：

2015-10-22 13:30:17.00,
2015-10-22 13:30:17.20,
2015-10-22 13:30:17.40,
2015-10-22 13:30:17.60,
2015-10-22 13:30:17.80