如何查找对上一筆的值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大大好,

假如有如下数据,

index	name	amount
1	A	10
2	B	14
3	C	3
4	A	4
5	A	15
6	C	9
7	B	12
8	C	6
9	A	7

要实现效果如下

index	name	amount	對上一筆位置(index)	對上一筆amount
1	A	10	NA	NA
2	B	14	NA	NA
3	C	3	NA	NA
4	A	4	1	10
5	A	15	4	4
6	C	9	3	3
7	B	12	2	14
8	C	6	6	9
9	A	7	5	15

有什么好的办法不用循环都能做到呢?
謝謝

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何查找 amount Index name AMO

1. library('dplyr')
   
2. df<-data.frame(index=1:9,name=c('A','B','C','A','A','C','B','C','A'),amount=c(10,14,3,4,15,9,12,6,7))
   
3. prev<-function(x) {
   
4.   index.x<-which(df#name==x)
   
5.   index.x.lag<-lag(index.x)
   
6.   df#index_prev[index.x]<<-df#index[index.x.lag]
   
7.   df#amount_prev[index.x]<<-df#amount[index.x.lag]
   
8. }
   
9. lapply(levels(df#name),prev)

复制代码

程序执行结果保存在df数据框中。论坛好像不支持美元符号，以上代码把#改成$即可。
需要注意的几个点：
1、定义了prev函数，参数为x，x可以为A、B、C。
2、在prev函数中需要对df变量进行操作，由于涉及函数变量作用域的问题，函数体中用到了<<-赋值方法。
3、用到了dplyr::lag()函数，用于对A、B、C的索引进行滞后。
4、使用了factor函数提取name列中的因子，当然也可以分别执行prev("A")、prev("B")、prev("C")，但如果name列涉及更多的元素（比如26个字母），这种办法可以简化操作。