获取组内的 (t-1) 数据

Question

如果之前有人问过这个问题，我深表歉意，但我找不到任何能准确回答这个问题的问题。我有这样的数据：

Project        Date   price
      A   30/3/2013    2082
      B   19/3/2013    1567
      B   22/2/2013    1642
      C   12/4/2013    1575
      C    5/6/2013    1582

我想要一个按组显示终审价格的列。例如，对于第 2 行，同一组的最后实例价格将为 1642。最终数据将如下所示：

Project        Date   price   lastPrice
      A   30/3/2013    2082           0
      B   19/3/2013    1567        1642
      B   22/2/2013    1642           0 
      C   12/4/2013    1575           0
      C    5/6/2013    1582        1575

如何做到这一点？我面临的主要问题是数据可能没有按日期排序，所以我不能只取最后一个单元格。

Answer 1

这是一个选项。如果 0，我还建议使用 NAs，因为 0 可能是实际价格。

library(dplyr)
df %>% 
  arrange(as.Date(Date, format = "%d/%m/%Y")) %>%
  group_by(Project) %>%
  mutate(lastPrice = lag(price))

# Source: local data frame [5 x 4]
# Groups: Project
# 
#   Project      Date price lastPrice
# 1       B 22/2/2013  1642        NA
# 2       B 19/3/2013  1567      1642
# 3       A 30/3/2013  2082        NA
# 4       C 12/4/2013  1575        NA
# 5       C  5/6/2013  1582      1575

另一种选择是使用 shift 来自 the devel version of data.table

library(data.table) ## v >= 1.9.5
setDT(df)[order(as.Date(Date, format = "%d/%m/%Y")), 
                lastPrice := shift(price), 
                by = Project]

#    Project      Date price lastPrice
# 1:       A 30/3/2013  2082        NA
# 2:       B 19/3/2013  1567      1642
# 3:       B 22/2/2013  1642        NA
# 4:       C 12/4/2013  1575        NA
# 5:       C  5/6/2013  1582      1575

或以 R 为基数

df <- df[order(df$Project, as.Date(df$Date, format = "%d/%m/%Y")), ]
within(df, lastPrice <- ave(price, Project, FUN = function(x) c(NA, x[-length(x)])))
#   Project      Date price lastPrice
# 1       A 30/3/2013  2082        NA
# 3       B 22/2/2013  1642        NA
# 2       B 19/3/2013  1567      1642
# 4       C 12/4/2013  1575        NA
# 5       C  5/6/2013  1582      1575

附带说明一下，最好首先将日期列保留在 Date class 中，因此我建议一劳永逸地执行 df$Date <- as.Date(df$Date, format = "%d/%m/%Y") .

获取组内的 (t-1) 数据

Get the (t-1) data within groups

r

date

apply