如何在R数据框中添加下一个日期的列

我拥有股票和日期的数据框。我想添加一个“下一个日期”列。我应该怎么做？如何在R数据框中添加下一个日期的列

的数据是这样的：

df = data.frame(ticker = c("BHP", "BHP", "BHP", "BHP", "ANZ", "ANZ", "ANZ"), date = c("1999-05-31", "2000-06-30", "2001-06-29", "2002-06-28", "1999-09-30", "2000-09-29", "2001-09-28")) 
df$date = as.POSIXct(df$date)

在人类可读的形式：

ticker | date 
----------------- 
BHP  | 1999-05-31 
BHP  | 2000-06-30 
BHP  | 2001-06-29 
BHP  | 2002-06-28 
ANZ  | 1999-09-30 
ANZ  | 2000-09-29 
ANZ  | 2001-09-28

我要的是增加一列下一个日期：

ticker | date  | next_date 
------------------------------------ 
BHP  | 1999-05-31 | 2000-06-30 
BHP  | 2000-06-30 | 2001-06-29 
BHP  | 2001-06-29 | 2002-06-28 
BHP  | 2002-06-28 | NA   # (or some default value) 
ANZ  | 1999-09-30 | 2000-09-29 
ANZ  | 2000-09-29 | 2001-09-28 
ANZ  | 2001-09-28 | NA

来源

2017-04-18 lebelinoz

library(dplyr) 
df %>% 
group_by(ticker) %>% 
mutate(next_date = lead(date))

来源

2017-04-18 03:28:59 neilfws

我们可以使用ave从base R做到这一点

df$next_date <- with(df, ave(as.Date(date), ticker, FUN = function(x) c(x[-1], NA))) 
df$next_date 
#[1] "2000-06-30" "2001-06-29" "2002-06-28" NA   "2000-09-29" "2001-09-28" NA

或者我们可以使用data.table

library(data.table) 
setDT(df)[, next_date := shift(date, type = "lead"), by = ticker]

来源

2017-04-18 04:03:21 akrun

你的第一个两种解决方案并不完全工作。你的data.table解决方案工作正常。 – lebelinoz

@lebelinoz对我来说，它使用你展示的例子正常工作。其实，我的意思是'c（x [-1]，NA）'，但忘了更新它 – akrun

@lebelinoz是的，我编辑它。我的意思是说，最初，我复制/粘贴它，然后在我的系统上进行更改，但忘记更新代码。 – akrun

如何在R数据框中添加下一个日期的列

回答

相关问题