Факторы подмножества в R

Question

s <- split (x, x$factor) 
s[[1]] 

Поэтому я хотел был бы иметь возможность использовать это подмножество факторов с lapply. Ниже приведен макет кода, имитирующий то, что я пытался сделать.

meanfunction <-lapply(s[[1]],function(x) colMeans(x[, c("col1","col2")])) 

Но это не работает. Поэтому, хотя я бы был умным и попытался обмануть R и связать новую переменную t<-s[[1]], а затем использовать ее в функции, но, увы, она тоже не работает. В любом случае я получаю такое же сообщение об ошибке.

Error in x[, c("col1", "col2")] : incorrect number of dimensions 

Но код отлично работает при оценке в целом. Есть предположения? Благодарю.

Edit: х является data.frame с 4 столбцами Character, числовой, цифровой, фактор

Answer 1

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

library(dplyr) 
x = tbl_df(data.frame(factor = factor(c(rep("A", 3), rep("B", 4))), value = 1:7)) 
group_by(x, factor) %>% summarise(mean = mean(value)) 

Вы можете узнать больше о dplyrhere.