同一列数据内，根据条件，上下前后相减

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如上图所示，
想让同一个sub条件下，SD==1 条件下的 rating_indif2 减去 SD==0 条件下的rating_indif2,
这样，每一个sub，计算出一个差值。
另外需要注意，数据中SD==1 和SD==0的条件并不一定是固定的前后顺序
能不能不使用循环就能实现计算？
求大牛帮忙解答，顺便给我涨点知识。
多谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：RATING INDI DIF ATI Tin

你这不让用循环，只能用`lapply`了啊。

1. df <- data.frame(sub=rep(26:28, each=2),
   
2.                  sd=rep(c(0,1), times=3),
   
3.                  rating_indif=rnorm(6))
   
4. subb <- df$sub %>% unique()
   
5. noforloop <- function(subb) {
   
6.   sub_temp <- df[df$sub==subb,]
   
7.   dif_temp <- sub_temp[sub_temp$sd==1, "rating_indif"]-sub_temp[sub_temp$sd==0, "rating_indif"]
   
8.   return(c(subb,dif_temp))
   
9. }
   
10. your_dif <- lapply(subb, noforloop) %>% unlist %>% matrix(nrow=length(subb), byrow=T) %>%
    
11.   as.data.frame %>% `names<-`(c("sub", "diff"))

复制代码

library(tidyverse)
library(magrittr)
###  此处假设 每组sub只有二行，一行sd==0,另一行sd==1
mydata%<>% arrange(sub,sd)%>%  ## 排序，保证，每组sub  中 sd==0在第一行，sd==1在第二行
                        group_by(sub)%>%
                        mutate( dif=rating_indif2-lag(rating_indif2))%>%　## dif 便是你要的值 ，sd==0 时  dif为NA
                        ungroup()   
####  若只想要dif 有值的行，可继续如下

    mydata%<>%filter(not(is.na(dif)))

lemon.d 发表于 2018-11-6 10:46
你这不让用循环，只能用`lapply`了啊。

果然是让我学习了！！我自己其实是用循环解决的。

jgchen1966 发表于 2018-11-6 15:15
library(tidyverse)
library(magrittr)
###  此处假设 每组sub只有二行，一行sd==0,另一行sd==1

这个思路也很棒，真心是学习到了，新技能get！

jgchen1966 发表于 2018-11-6 15:15
library(tidyverse)
library(magrittr)
###  此处假设 每组sub只有二行，一行sd==0,另一行sd==1

没理解错的话，你这里的%<>%是打错的，其实是指%>%, 对吧~

vieruodu 发表于 2018-11-6 16:36
没理解错的话，你这里的%%是打错的，其实是指%>%, 对吧~

没错的。具体请参考：magrittr  

如果SD值不只有0和1，还有0,1,2,3，
同一个sub条件下，SD==1，2，3 条件下的 rating_indif2 减去 SD==0 条件下的rating_indif2
这样的话该怎么写呢？感谢！

能否分享一下循环的代码，初学，循环感觉好难

lin.hu 发表于 2021-10-13 18:53
如果SD值不只有0和1，还有0,1,2,3，
同一个sub条件下，SD==1，2，3 条件下的 rating_indif2 减去 SD==0 条 ...

你好，请问你解决你的问题了吗？