如何计算R中几个表中的行?

时间:2015-03-30 20:53:58

标签: r list rows

我有几个带有x,y,z坐标和时间戳的数据集。我将各个数据文件加载到一个对象中,如下所示:

    [[1]]
    x;y;z;time
    -3.144;0.8554;-1.806;0.0724
    -3.144;0.8554;-1.806;0.0968
    -3.144;0.8554;-1.806;0.6275
    -3.144;0.8554;-1.806;0.6484
    -3.144;0.8554;-1.806;0.6611 
    ...
    [[2]]
    x;y;z;time
    -2.840;0.9775;-2.058;0.0724
    -2.832;0.9775;-2.058;0.0968
    -2.845;0.9775;-2.062;0.6275
    -2.833;0.9775;-2.067;0.6484
    -2.847;0.9775;-2.070;0.6611 
    ...

现在我想写一个新表来计算每个时间戳的每个数据文件的x,y,z的平均值。所以它看起来像这样:

x.mean;y.mean.;z.mean;time
-2.992;0.916;-1.932;0.0724
-2.988;0.855;-1.806;0.0968
...

是否有可以执行此操作的功能/包?我尝试了多个包,但没有找到解决方案。

2 个答案:

答案 0 :(得分:1)

data.table可能在这里有效。我假设你的对象是data.frame表的列表,它被称为yourlistobject

library(data.table)

#Convert data to data.table and then stack all data onto of one another
big.list <- lapply(yourlistobject,setDT)
big.data <- rbindlist(big.list,fill=TRUE)

#Calculate means by timestamp
out <- big.data[, lapply(.SD,mean,na.rm=T), by=.(time)]
out

答案 1 :(得分:0)

这是一种应该有效的快速而肮脏的方法。

iris1 = iris
iris2 = iris

iris1$Name = 'file1'
iris2$Name = 'file2'
iristotal = rbind(iris1,iris2)

data <- subset(iristotal, select= -c(Species, Name))
names <- subset(iristotal, select= c(Name))
aggregate( data,names, mean)