Подмножество кадра данных на основе входной переменной

Question

У меня есть следующий фрейм данных

 df<-data.frame("EmailReach"<-c(1:20), "MobileReach"<-c(21:40))
 names(df)<-c("EmailReach", "MobileReach")

Я перечислил две переменные следующим образом

  Channel<-c("Email", "Mobile")

Я хочу перечислить отдельные средневзвешенные значения для переменных канала.

for(i in paste0(Channel, "Reach")) 
{print(min(weighted.mean(df[,names(df)%in%paste0(Channel, "Reach")][i])))}

Приведенный выше код дает мне взвешенные средние значения, но не имена переменных.Как мне сделать это

Answer 1

Вы можете использовать summarise_all из dplyr:

require(dplyr)

df %>% summarise_all(weighted.mean)

  EmailReach MobileReach
1       10.5        30.5