Перебрать конкретное наблюдение и сохранить как выходной файл

Можно ли прокрутить конкретное наблюдение с помощью функции, а затем сохранить вывод? Я написал функцию, которая требует две переменные: 1) набор данных для вычислений; 2) номер субъекта.

Например, фрейм данных здесь содержит данные для двух субъектов. Я хочу перебрать фрейм данных, чтобы вычислить среднее значение для каждого субъекта и получить результат для каждого субъекта.

df1<-data.frame(data= c(2,3,4,5), subject= c("S2","S1","S2","S1"))

for (i in df1) {
if df1$subject== i
subset_(i)<-mean(data)
}

Может ли кто-нибудь помочь мне улучшить коды, пожалуйста?

Большое спасибо за вашу помощь заранее!