Мы можем использовать анонимную функцию
sapply(names(cars)[1:2], function(x) IQR(cars[[x]]))
Если нам нужны столбцы 2 и 5, используйте c
вместо оператора seq (используя другой набор данных, так как cars
имеет только два столбца)
sapply(mtcars[c(2, 5)], IQR)
# cyl drat
# 4.00 0.84