Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/list/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 每个列表第i行的平均值_R_List_Dataframe - Fatal编程技术网

R 每个列表第i行的平均值

R 每个列表第i行的平均值,r,list,dataframe,R,List,Dataframe,我没有发现类似的问题。让我们假设下面的列表 a <- data.frame(number=1:10) dat <- list(a, a*2, a*3) number 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 [[2]] number 1 2 2 4 3 6 4 8

我没有发现类似的问题。让我们假设下面的列表

a <- data.frame(number=1:10)
dat <- list(a, a*2, a*3)

   number
1       1
2       2
3       3
4       4
5       5
6       6
7       7
8       8
9       9
10     10

[[2]]
   number
1       2
2       4
3       6
4       8
5      10
6      12
7      14
8      16
9      18
10     20

[[3]]
   number
1       3
2       6
3       9
4      12
5      15
6      18
7      21
8      24
9      27
10     30

a我假设您想从所有
数据中逐行计算值的平均值。帧
dat
中的
s?假设所有
data.frame
s具有相同的维度,则可以执行此操作

rowMeans(data.frame(dat))
# [1]  2  4  6  8 10 12 14 16 18 20

你说得对,Sappy是解决方案之一

a <- c(number=1:10)
dat <- list(a, a*2, a*3)
sapply(dat, function(x) mean(head(x, 3)) )



a <- data.frame(number=1:10)
dat <- list(a, a*2, a*3)
sapply(dat, function(x) mean(head(x[,1], 3)) )

a需要一个带有列表的解决方案,因为这是一个非常程式化的解决方案example@rook1996
dat
是一个
列表
;只需将其重铸为
数据框
,然后使用
行方式
;这适用于
data.frame的
列表