Учтите, что Deviant_RT и StandardRT не являются столбцами, а являются значениями BinLab.В этом случае вы можете предварительно определить знак mean.RT в каждой строке, используя значение BinLab, а затем суммировать значения следующим образом:
RTDataDifferenceWave <- RTData %>%
mutate(mean.RT_signed = mean.RT * ifelse(BinLab == 'Deviant_RT', 1, -1)) %>%
group_by(Subject) %>%
summarise(DiffRT = sum(mean.RT_signed))
Обратите внимание, что предполагается, что BinLab может быть только одним из Deviant_RTили StandardRT.Если он может принимать другие значения, вы можете изменить его на следующее:
mutate(mean.RT_signed = mean.RT * ifelse(BinLab == 'Deviant_RT', 1, ifelse(BinLab == 'Standard_RT', -1, 0)))