Это то, что вам нужно?Если у вас уже есть первые столбцы, кроме последнего, просто выполните
mutate(Diff=Value2-Value1)
В противном случае добавьте столбцы, используя mutate
.Вы можете посмотреть на ?cbind
тоже
#Location1 and Value1 should already be in your data.
library(tidyverse)
BLUP %>%
rename(Location2=Location1,Value2=Value1) %>%
mutate(Location1=rep("A",3),Value1=rep(3,3),Diff=Value2-Value1) %>%
select(contains("1"),everything())