как ускорить этот код R

У меня есть data.frame (свяжитесь с файлом) с 18 столбцами и 11 520 строк, которые я преобразовываю как это:

library(plyr)
df.median<-ddply(data, .(groupname,starttime,fPhase,fCycle), 
                 numcolwise(median), na.rm=TRUE)

согласно system.time (), это берет об этом долго для выполнения:

   user  system elapsed 
   5.16    0.00    5.17

Этот вызов является частью веб-приложения, таким образом, время выполнения довольно важно. Существует ли способ ускорить этот призыв?