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

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)))

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

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

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