У меня есть датафрейм. Я хотел бы вычесть 2-й столбец из всех других столбцов. Я могу сделать это в цикле, но я хотел бы сделать это в один вызов. Вот мой рабочий код цикла:

df <- data.frame(x = 100:101, y = 2:3,z=3:4,a = -1:0,b=4:5)

for( i in 3:length(df) ) {
    df[i] <- df[i] - df[2]
}