文章/答案/技术大牛

发布

社区首页 >问答首页 >根据不同列的位置计算数据帧中的平均值

问根据不同列的位置计算数据帧中的平均值
EN

Stack Overflow用户

提问于 2015-04-21 09:08:39

回答 3查看 80关注 0票数 5

我有一个数据框架设置如下：

N1 <- c(1,2,4,3,2,3,4,5,4,3,4,5,4,5,6,8,9)
Start <- c("","Start","","","","","","","Start","","","","Start","","","","")
Stop <- c("","","","","Stop","","","","","","Stop","","","","Stop","","")

N1是我感兴趣的数据。我想根据后面两列中的“开始”和“停止”位置来计算数字串的平均值。

由"Start“和"Stop”定义的字符串如下所示：

2,4,3,2 
4,3,4
4,5,6

所以我的最终结果应该是3种方法：

    2.75,3.6,5

dataframe

mean

回答 3

Stack Overflow用户

回答已采纳

发布于 2015-04-21 09:14:05

你可以试试：

mapply(function(start, stop){
          mean(N1[start:stop])
       }, 
       start=which(Start!=""), 
       stop=which(Stop!=""))

#[1] 2.750000 3.666667 5.000000

票数 5

Stack Overflow用户

发布于 2015-04-21 10:12:23

library(data.table) # need latest 1.9.5+

# set up data to have all 1's column for the period we're interested in and 0 otherwise
d = data.table(N1, event = cumsum((Start != "") - c(0, head(Stop != "", -1))))

d[, mean(N1), by = .(event, rleid(event))][event == 1, V1]
#[1] 2.750000 3.666667 5.000000

# or equivalently
d[, .(event[1], mean(N1)), by = rleid(event)][V1 == 1, V2]

票数 4

Stack Overflow用户

发布于 2015-04-21 09:40:29

您也可以尝试rollapply

library(zoo)
x <- sort(c(which(Stop != ""), which(Start != ""))) # indices of Start and Stop
rollapply(x, 2, FUN = function(y) mean(N1[y[1]:y[2]]), by=2)
[1] 2.750000 3.666667 5.000000

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/29767697

复制

相似问题

问根据不同列的位置计算数据帧中的平均值
EN

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问根据不同列的位置计算数据帧中的平均值EN

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问根据不同列的位置计算数据帧中的平均值
EN