Существует ли функция R для вычитания больших значений из результатов в кадре данных и отображения разницы в новой таблице?

Question

У меня 204 наблюдения IQ в кадре данных и GM результатов. Моя задача состоит в том, чтобы вычесть индивидуальный средний балл из GM.

Я установил фрейм данных [IQdata_SubjIQ], показывающий все индивидуальные оценки с соответствующими значениями, к которым они принадлежат, я просто не знаю, как создать новую таблицу, показывающую разницу между индивидуальным средним баллом и GM.

Поиск ответов в Интернете показал мне очень много разных результатов; merge, df, diff (as.matrix) и data.table, и я попробовал их все, но мы никогда не узнали об этом в классе. Мне очень трудно искать правильный код, потому что я никогда не видел его и не могу сказать, что мне нужно изменить, чтобы получить результаты.

dat_l <- dat_w %>% gather(adi_1:kft_2, key=Test_MZP, value=Score) %>% 
                   arrange(Gruppe, Subj)
glimpse(dat_l)

dat_l <- separate(dat_l, Test_MZP, c("Test", "MZP"), sep="_")
dat_l

dat_l$Test <- factor(dat_l$Test)
levels(dat_l$Test)

dat_l$Test <- factor(dat_l$Test, level=c("adi", "afr", "thi", "cft", 
                                         "rav", "nc" ,  "ip", "kft"))
levels(dat_l$Test)

dat_l$MZP <- factor(dat_l$MZP, levels=c(1, 2), labels=c("Prätest", "Posttest"))
levels(dat_l$MZP)

dat_l$MZP <- factor(dat_l$MZP, levels=c("Prätest", "Posttest"), labels=c("IQ1", "IQ2"))
levels(dat_l$MZP)

IQdata <- dat_l %>%
               group_by(Subj, MZP) %>% 
               summarise(N=n(),
                         M=mean(Score),
                         SD=sd(Score),
                         SE=SD/sqrt(N))
data.frame(IQdata)


GM <- mean(IQdata$M)
IQdata_SubjIQ <- as.tibble(IQdata) %>% 
                 group_by(Subj) %>% 
                 summarise(Score_SubjM = mean(M)) 

data.frame(IQdata_SubjIQ)