オブジェクトからRへの個々のリストの取得 - r

次のようなデータがあるとします。

x<-1:100
c1<-cut(x,breaks=10 )
result<-by(x,c1,function(x){
list(n=length(x),
centralTendency=c(mean=mean(x),
median=median(x)) ) } )

nのベクトルとリストを取得することは可能ですか中心的傾向を持つベクトルの数？これは私の問題を非常に単純化した形で、実際にはn個のデータポイントと280個のicc値なので、平均値と中央値をより効率的に計算しないでください。

回答：

このような何か：

n <- unname(sapply(result, function(x) x$n))
#or as per @Frank "s comment
sapply(result,`[[`,"n")

#n
#[1] 10 10 10 10 10 10 10 10 10 10

そして中心的傾向のために

ct <- lapply(result, function(x) x$centralTendancy)
#or as per @Frank "s comment
lapply(result,`[[`,"centralTendency")

#> ct
#$`(0.901,10.9]`
#  mean median
#   5.5    5.5
#
#$`(10.9,20.8]`
#  mean median
#  15.5   15.5
#
#$`(20.8,30.7]`
#  mean median
#  25.5   25.5