выбрать подмножество различных data.frame столбцов

Question

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

per <- data.frame(Apocal=c(10,1,2,3,4,0,6),Aporos=c(0,2,1,3,0,5,6),Euker=c(0,3,5,7,0,0,0), fecha=c(1,1,2,2,2,3,3)) 

temp <-with(per, per[Apocal>0,]) 
require(plyr) 
temp <- ddply(temp, .(fecha), summarise, Apocal = mean(Apocal)) 

temp <-with(per, per[Aporos>0,]) 
temp <- ddply(temp, .(fecha), summarise, Aporos = mean(Aporos)) 

... 

И повторяю для каждого столбца, за исключением Fecha, есть ли способ автоматизировать это с помощью функции или другой вещи?

Спасибо!

Answer 1

С aggregate:

aggregate(. ~ fecha, data = per, function(x)mean(x[x > 0])) 
# fecha Apocal Aporos Euker 
# 1  1 5.5 2.0  3 
# 2  2 3.0 2.0  6 
# 3  3 6.0 5.5 NaN 

Answer 2

Если ваша функция mean, вы можете использовать функцию colMeans нормально. Он вычисляет среднее значение для всех столбцов (по столбцам). Но так как вам требуется, чтобы вычислить среднее после удаления 0 записей каждого столбца, вы можете использовать colSums следующим образом:

# x gets all columns grouped by `fecha`. 
ddply(per, .(fecha), function(x) colSums(x[, -4])/colSums(x[, -4] != 0)) 
# fecha Apocal Aporos Euker 
# 1  1 5.5 2.0  3 
# 2  2 3.0 2.0  6 
# 3  3 6.0 5.5 NaN 

Answer 3

pmean <- function(x,byvar){ 
    y=x[,-1*byvar] 
    colSums(y*(y>0))/colSums(y>0) 
} 

ddply(per, .(fecha), function(x) pmean(x,4)) 

модифицированную версию soluton Аруна.