根据矩阵元素个数相关

xiaoxue3850

比如有阵列式r1 c（1：20），另一个阵列r2 c（3，5，6，6）我如何根据r2的元素来对r1相加比如3指r1的前三项 5是第4-8项。。。。。。。依次类推我最终得到的（6，30，69，105），给点小小的提示，谢谢，因为数据量比较大r1、r2都上千严重超出口算范围了，嘿嘿

nan.xiao

<br />
r1 = c(1:20)<br />
r2 = c(3, 5, 6, 6)<br />
r2 = c(0, r2)<br />
r3 = rep(NA, length(r2)-1)<br />
for (i in 1:length(r2)-1){<br />
r3[i] = sum(r1[(sum(r2[1:i])+1):(sum(r2[1:(i+1)]))])<br />
}</p>
<p>print(r3)<br />
# [1]   6  30  69 105<br />

</p>

改造成矩阵访问应该很容易 ..

xiaoxue3850

十分谢谢！！

nan.xiao

回复第3楼的 xiaoxue3850：呃不用谢 .. 代码这货慢慢写总有一天能写完的 ...

ming_uld

当作练习了[s:11]

<br />
f <- function(x=1:20,y=c(3,5,6,6),n){<br />
if(n == 1) return(sum(x[1:y[1]])) else{<br />
  aa = sum(y[1:(n-1)])<br />
sum( x[ (aa + 1):(aa + y[n]) ])<br />
}<br />
}<br />
f(n=2)<br />

</p>

ming_uld

回复第4楼的 nan.xiao：这孩一看就是看日和看多了。。[s:12]

gigi0926

r1<-1:20

r2<-c(3,5,6,6)

r1_c<-cumsum(r1)

r2_c<-cumsum(r2)

r3<-diff(r1_c[r2_c])