请教循环程序编写：矩阵中每隔N个提取一次

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教，怎样编写循环程序把下面矩阵中的每一列 隔一个取一个数 再排列成一个新的矩阵呢。

   [,1] [,2] [,3] [,4] [,5] [,6] [,7]

[1,]    1    6   11   16   21   26  31

[2,]    2    7   12   17   22   27  32

[3,]    3    8   13   18   23   28  33

[4,]    4    9   14   19   24   29  34

[5,]    5   10   15   20   25   30  35

运转完循环后得到的矩阵应该是下面的。

   [,1] [,2] [,3] [,4]

[1,]    1       11      21    31

[2,]    2       12      22    32

[3,]    3      13       23    33

[4,]    4      14      24    34

[5,]    5     15      25    35

谢谢啦

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：程序编写 程序编写

1. > x <- matrix(1:35, 5, 7)
   
2. > x
   
3.      [,1] [,2] [,3] [,4] [,5] [,6] [,7]
   
4. [1,]    1    6   11   16   21   26   31
   
5. [2,]    2    7   12   17   22   27   32
   
6. [3,]    3    8   13   18   23   28   33
   
7. [4,]    4    9   14   19   24   29   34
   
8. [5,]    5   10   15   20   25   30   35
   
9. > x[, seq(1, 7, by = 2)]
   
10.      [,1] [,2] [,3] [,4]
    
11. [1,]    1   11   21   31
    
12. [2,]    2   12   22   32
    
13. [3,]    3   13   23   33
    
14. [4,]    4   14   24   34
    
15. [5,]    5   15   25   35

复制代码

1. da <- matrix(c(1:35), nrow = 5, ncol = 7, byrow = FALSE)
   
2. da
   
3. 
   
4. get_col <- function(da, n){
   
5. if(is.matrix(da) == FALSE){
   
6.     print(da)
   
7.   }
   
8.   else{
   
9.     if(n > ncol(da)){
   
10.       print("No Answer!")
    
11.     }
    
12.     else{
    
13.       da1 = da[, seq(n, ncol(da), 2)]
    
14.       da1
    
15.     }
    
16.   }
    
17. }

复制代码