每個相同ID的行之間的計算增加

Question

A有一個排序的數據幀，我想計算每個相同ID的增加x2。 輸入已經排序以某種方式：

ID x2 x3 x4 
1 10 11 2 
2 100 12 4 
1 20 13 10 
7 24 3 1 
1 30 14 0 
3  6 15 1 
2 90 15 1 

我想獲得：

ID x2 increase x3 x4 
1 10   11 2 
2 100   12 4 
1 20  +100% 13 10 
7 24    3 1 
1 30  +50% 14 0 
3  6   15 1 
2 90  -10% 15 1 

Answer 1

你可以做

df <- read.table(header=T, text=" 
ID x2 x3 x4 
1 10 11 2 
2 100 12 4 
1 20 13 10 
7 24 3 1 
1 30 14 0 
3  6 15 1 
2 90 15 1") 
df$increase <- ave(df$x2, df$ID, FUN = function(x) c(NA, diff(x)/head(x, -1))*100) 
df$increase <- ifelse(is.na(df$increase), "", sprintf("%+.0f%%", df$increase)) 
df 
# ID x2 x3 x4 increase 
# 1 1 10 11 2   
# 2 2 100 12 4   
# 3 1 20 13 10 +100% 
# 4 7 24 3 1   
# 5 1 30 14 0  +50% 
# 6 3 6 15 1   
# 7 2 90 15 1  -10%