R如何计算两行之间的“变化百分比”？

Question

• 我喜欢计算“两行之间的变化百分比”，而 Item 行的变化。

• 对于第一行项目，我可以放置一些文本或空白 （例如“跳过”或空白是可以的）因为没有比较相同的前一行 项目

  df <- data.frame(period=rep(1:4,2), 
               farm=c(rep('A',4),rep('B',4)), 
               cumVol=c(1,5,15,31,10,12,16,24), item=c(rep('Z',3),rep('Y',3),rep('X',2)),
               other = 1:8);
  

我想要的“Percentage_Change”列（数据集的附加列）的输出如下所示。 （公式：100/Previous Item 行值 * 当前行 Item 值...以第 2 行为例..100/1 * 5 = 500）

Row Percentage_Change
1   Skip
2   500
3   300
4   Skip
5   32.25806452
6   120
7   Skip
8   150

感谢您的所有帮助。

Answer 1

dplyr 也可以这样做。这与akrun 的回答完全类似，但使用了其他语法。

library(dplyr)
mutate(df, Row = 1:n()) %>%
  group_by(item) %>%
  mutate(Percentage_Change = cumVol/lag(cumVol) * 100) %>%
  ungroup %>%
  select(Row, Percentage_Change)
## Source: local data frame [8 x 2]
## 
##     Row Percentage_Change
##   (int)             (dbl)
## 1     1                NA
## 2     2         500.00000
## 3     3         300.00000
## 4     4                NA
## 5     5          32.25806
## 6     6         120.00000
## 7     7                NA
## 8     8         150.00000

Answer 2

我们可以从data.table 使用shift。将 'data.frame' 转换为 'data.table' (setDt(df))，按 'item' 分组，我们从.I 获得“Row”，并通过将“cumVol”除以 @ 创建“Percentage_Change” “cumVol”的 987654325@（由 shift 获得）并乘以 100。如果需要，可以通过将 (:=) 分配给 NULL 来删除分组列。

library(data.table)
setDT(df)[, list(Row = .I, Percentage_Change=round(cumVol*
   (100/shift(cumVol)),2)), .(item)][, item := list(NULL)][]
#   Row Percentage_Change
#1:   1               NA
#2:   2           500.00
#3:   3           300.00
#4:   4               NA
#5:   5            32.26
#6:   6           120.00
#7:   7               NA
#8:   8           150.00

注意：这为没有比较的元素提供 NA，而不是 Skip。