在R,如果我有數據幀:分裂差
a <- c(1,1,2,2,3,3,4,4);b <- c(1,0,1,0,1,0,1,0); c <- c(1.5,2.5,30,20,100,150,0.7,0.3)
df <- data.frame(a,b,c)
> df
a b c
1 1 1 1.5
2 1 0 2.5
3 2 1 30.0
4 2 0 20.0
5 3 1 100.0
6 3 0 150.0
7 4 1 0.7
8 4 0 0.3
我可以在向量化方式拆分組內的差異:
df$d <- ifelse(df$b == 1, (df$c - c(df$c[-1], NA))/2, (df$c - c(NA, df$c[-nrow(df)]))/2)
> df
a b c d
1 1 1 1.5 -0.5
2 1 0 2.5 0.5
3 2 1 30.0 5.0
4 2 0 20.0 -5.0
5 3 1 100.0 -25.0
6 3 0 150.0 25.0
7 4 1 0.7 0.2
8 4 0 0.3 -0.2
是否有在熊貓中使用相同的數據框來實現這些結果的相似方法?
df = pd.DataFrame({'a': [1,1,2,2,3,3,4,4], 'b': [1,0,1,0,1,0,1,0], 'c': [1.5,2.5,30,20,100,150,0.7,0.3]})
謝謝,我只是想你的代碼,我認爲你需要RSUB,而不是分而輝煌的解決方案 – Tony
@Tony感謝,是的,我把'rsub'在一個部分但不是其他。謝謝你的收穫。 – piRSquared