Mutate和Lead-lag在列中添加下一个值？

Question

如果有意义的话，我在将列中的下一个日期值添加到与第一个日期相同的行时遇到问题。每个活动＆＃39;具有开始日期和结束日期，两者都包含在日期列中。我想针对一个特定的事件采取下一个日期＆＃39; （＆＃34; Well_ID＆＃34;列）并将其放在Lead_Date列中，以便我可以在这些日期之间选择数据。以下内容并未给出错误，但它不会填充Lead_Date列，我不确定原因。

＆＃13;

＆＃13;

library(dplyr)
library(lubridate)
library(randomForest)
library(stringr)
library(caTools)

# Map 1-based optional input ports to variables
dataset1 <- maml.mapInputPort(1) # class: data.frame

  dataset1 %>% group_by(Well_ID)
  
  dataset1$Lead_Date <- ""
    
  # Add a column of the next event for each Well_ID:
  dataset1 %>% mutate(Lead_Date = lead(Date, order_by = Date))

＆＃13;

＆＃13;

＆＃13;

我对R来说很新，所以非常感谢任何帮助！