Как мне усреднить по конкретным столбцам

Question

Как рассчитать медианное время ответа между участниками для каждого вопроса (строки - это участники, а столбцы - правильные ответы и время ответа).Я могу сделать это для отдельных столбцов, но я не знаю, как перебрать все столбцы и поместить ответы в новую таблицу.

В конце я хочу таблицу, которая показывает среднее время ответа ипроцент правильных ответов для каждого вопроса.

Я могу найти медиану для каждого вопроса, а также процент правильных ответов для каждого вопроса, но я могу просмотреть набор данных, поэтому составьте сводную таблицу этой статистики.

new_Data <- data[ , grepl( "correct|time" , names( data ) ) ]

Answer 1

Если я правильно понимаю ваш вопрос, это решение может помочь вам. Он выбирает столбцы на основе регулярного выражения и вычисляет среднее значение для всех них. Если нет, пожалуйста, включите пример желаемого результата. Удачи!

library(tidyverse)

mtcars %>%
  select(matches(".*p$|.*t$")) %>% #regex example: ends in "p" or ends in "t"
  summarise_all(mean, na.rm = T)

      disp       hp     drat      wt
1 230.7219 146.6875 3.596563 3.21725

Answer 2

Это то, что вы смотрите

sapply( mtcars[ , grepl( "a|wt" , names( mtcars ) ) ], quantile, .5 )

или как петля

A<- NULL
for( i in grep( "a|wt" , names( mtcars ) , value=T )){

A <- rbind( A , 
data.frame( vars=i , medain=quantile( mtcars[ , i ] , .5 )))
}

A