r语言怎么实现矩阵中每5列相加成新的列，最后合成一个新的矩阵

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图，我需要让矩阵中的第1-第5列相加成、第6-第10列相加......最后并成一个新的矩阵，因为列数很多，我不想一次次的加，所以我之前考虑用for循环：
f <- for( i in seq(1,100,by=5)) {cbind(rowSums(wiot[1:2464 , i : i+5 ]))}
但是报错Error in rowSums(wiot[1:2464, i:i + 5]) :    'x'必需是阵列，而且至少得有两个维度
刚学习r，向大家来讨教，帮帮新人吧

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 for循环 For

我发现这个代码可以
f1 <- sapply(seq(1,100, by=5), function(i) {
  indx <- i:(i+4)
  rowSums(wiot[indx[indx <= 100]])})

做了个示例，你参考。

1. m <- matrix(runif(1070), 10) #示例原矩阵
   
2. 
   
3. #以下代码中的m改成你的矩阵名wiot即可
   
4. f <- matrix(0, dim(m)[1], dim(m)[2] %/% 5 + 1) #空矩阵
   
5. #以下循环处理5倍数列
   
6. for (i in seq(1, (dim(m)[2] - dim(m)[2] %% 5), by = 5)) {
   
7.   f[, (i - 1) / 5 + 1] <- rowSums(m[, i:(i + 4)])
   
8. }
   
9. #以下处理最后不足5列，加总形成最后一列
   
10. if (dim(m)[2] %% 5 == 1) {
    
11.   f[, dim(m)[2] %/% 5 + 1] <-
    
12.     m[, dim(m)[2]]
    
13. } else {
    
14.   f[, dim(m)[2] %/% 5 + 1] <-
    
15.     rowSums(m[, (dim(m)[2] %/% 5 * 5 + 1):dim(m)[2]])
    
16. }

复制代码

我是你的话，可能会转置一下行列，然后用向量化的方式去求和。

1. ncolsum <- 5
   
2. df <- matrix(1:200,ncol = 20)
   
3. dft <- as.data.frame(t(df))
   
4. 
   
5. dlist <- split(dft, 0: (nrow(dft) - 1) %/% ncolsum)
   
6. 
   
7. dl <- lapply(dlist, colSums)
   
8. dl <- dplyr::bind_rows(dl)
   
9. dl <- as.data.frame(t(dl))

复制代码

是用来合并wiot中各国最终消费里的小项吗？

我也贡献思路：

1. # 假设原数据是矩阵mt
   
2. # 假设矩阵的列数是5的整数倍
   
3. dim(mt) <- c(nrow(mt), 5, ncol(mt) / 5)
   
4. apply(mt, 3, rowSums)
   
5. 
   
6. # 如果矩阵的列数不是5的整数倍
   
7. # 将mt矩阵分成下面两个矩阵，解法略
   
8. mt[, 1:(ncol(mt) %/% 5 * 5)]
   
9. mt[, (ncol(mt) %/% 5 * 5 + 1):ncol(mt)]

复制代码