R - Dplyr - 比较最后一行与实际行的值

Question

我有这个数据框:

    year    month    UserID
1   2014    11        3527
2   2014    12        4916
3   2015    1         2445

并想添加一个“变化”列:公式为:ActualRow/LastRow - 1。

这是我的代码:

UserID_unicos2 <- UserID_unicos1 %>%
                  mutate(variation=(UserID/lag(UserID) - 1)) %>% 
                  mutate(prev=lag(UserID))

但是，它只是返回:

    year    month   UserID  variation   prev
1   2014     11      3527      NA        NA
2   2014     12      4916   0.3938191   3527
3   2015      1      2445      NA        NA

如您所见，它只返回 2014-12 的值。而不是:2015-01。怎么来的？谢谢。

应用“dput()”后我的数据:

structure(list(year = c(2014L, 2014L, 2015L), month = c(11L, 
12L, 1L), UserID = c(3527L, 4916L, 2445L)), .Names = c("year", 
"month", "UserID"), row.names = c(NA, -3L), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), vars = list(year), drop = TRUE, indices = list(
    0:1, 2L), group_sizes = c(2L, 1L), biggest_group_size = 2L, labels = structure(list(
    year = 2014:2015), class = "data.frame", row.names = c(NA, 
-2L), .Names = "year", vars = list(year)))

Answer 1

根据您的 dput ，您的数据按 year 分组这就是为什么你会看到这个结果。试试这个:

UserID_unicos1 %>%
  ungroup() %>%
  mutate(variation=(UserID/lag(UserID) - 1),
         prev=lag(UserID))

另请注意，您可以在同一 mutate 中创建两列。只是用逗号隔开。