0

我有以下数据：

 df <- data.frame(Start = c(1,11,26), End = c(10,25,30), Mean = c(0.04349, 0.12, 0.04)) 

 #df
 #  start End    Mean
 #1     1  10 0.04349
 #2    11  25 0.12000
 #3    26  30 0.04000

由此，我想构造一个向量，其中的条目是Mean，并且索引由start和确定end。

换句话说，向量将0.04349作为从索引 1 到索引 10 的条目，然后向量条目的值0.12将从索引 11 到 25 等等。这是预期的结果：

 > res = c(rep(0.04349, df$End[1] - df$Start[1] + 1), rep(0.12, df$End[2] - df$Start[2] + 1), rep(0.04, df$End[3] - df$Start[3] + 1))


 > res
  [1] 0.04349 0.04349 0.04349 0.04349 0.04349 0.04349 0.04349 0.04349 0.04349 0.04349 0.12000 0.12000 0.12000 0.12000 0.12000 0.12000 0.12000 0.12000
 [19] 0.12000 0.12000 0.12000 0.12000 0.12000 0.12000 0.12000 0.04000 0.04000 0.04000 0.04000 0.04000

但是我在上面获取它的方式非常低效，尤其是对于大量行。

有没有一种直接的方法可以在没有任何 for 循环的情况下构造这个向量？实际上，数据框有大量的行。

谢谢！

4

2 回答 2

3

在您更新的帖子中，您几乎就在那里：

with(df, rep(Mean, times=End-start+1))
于 2013-10-25T13:12:10.423 回答
0 
library(data.table)
df <- data.table(df)
df[,list(someindex = start:End), by = Mean]
于 2013-10-25T13:10:22.790 回答