用R 截取矩阵

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请问用R 真么截取矩阵？ 非常感谢了~

我有个7列 n行的矩阵 ，想通过限定第四列的值比如：[X[,4]>100 & X[,4]<200] 来取出满足这个这个条件的相应的矩阵，怎么做呢

我用这个code只能取得其中的那一列，我想要取出的是整个矩阵，比如别的列中是表示和price相对应的时间也截取出来，最后是个7列的矩阵
X=read.table(“1.txt”,header=T)
Price=X[,4][X[,4]>100 & X[,4]<200]

非常感谢~

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：非常感谢

见下面的例子，取出10*7矩阵X中第四列大于0的子矩阵
X <- matrix(rnorm(10 * 7),  nrow = 10, ncol = 7)
ind <- X[, 4] > 0
X[ind, ]

1. > x <- rnorm(700,mean=120,sd=200)
   
2. > m <- matrix(x, ncol=7)
   
3. > a <- m[,4]
   
4. > b <- which(a>100 & a<200)
   
5. > m[b,]
   
6.             [,1]        [,2]        [,3]     [,4]        [,5]         [,6]
   
7. [1,]  455.71808  -49.410696   48.948400 148.6616  356.781990  318.1808347
   
8. [2,]  -96.57775 -103.153614  183.635274 175.0056  449.495230   92.7912088
   
9. [3,]  199.87276  417.808266  426.920448 194.7703 -143.486265  -43.8838180
   
10. [4,]  -98.66586   -7.202225    4.979429 159.8493 -344.212013  198.0521531
    
11. [5,]  259.77070  -63.809016 -204.777880 137.6106  295.206343   70.7042198
    
12. [6,]  452.36660  333.427643  305.776347 114.8774 -175.707097 -355.4303654
    
13. [7,]  409.92794   25.727365  237.227322 121.1435  360.766923  207.5481810
    
14. [8,]  410.48806  -77.942018 -164.368115 152.3237  258.510899  234.8719250
    
15. [9,]  -13.38905 -125.532193  323.043241 150.6650  352.001675  251.7345690
    
16. [10,] -251.29795   -7.132914  185.704493 147.8697  450.713605  235.8335276
    
17. [11,]  170.24304  350.818590  172.888834 177.9113  314.770561  295.1292511
    
18. [12,]  313.99534  389.737628   70.651921 146.6225  103.756141  -32.8024697
    
19. [13,]  132.95819 -147.896381  249.001544 128.9092  136.314237  227.8776746
    
20. [14,]   55.06513  139.585873  477.971482 112.9123   39.319623 -249.8612290
    
21. [15,]  143.98037  600.323471  200.624192 190.1265    0.993687  421.9330546
    
22. [16,]   19.73054  268.404459  358.140016 129.8487  184.675660  109.7691325
    
23. [17,]  414.83249  341.915893  438.273821 150.3274  328.214878  305.9845274
    
24. [18,]  156.01439  168.289800 -197.134382 178.4769  105.679193  210.1209374
    
25. [19,]  -75.35051  -61.227636  373.767859 161.7123  564.977484  125.7827743
    
26. [20,]  171.57930  268.819463  320.888145 132.4156  196.090905  380.3250850
    
27. [21,]  286.44943  207.063535   51.902986 160.5185  265.515139  210.0441064
    
28. [22,]  131.92176  268.429513  366.991343 149.4044  -25.750935    8.8228524
    
29. [23,]  339.46601  100.023811  357.539365 177.4101  122.275860   -0.5814479
    
30. [24,]  341.57867  200.302464 -200.001614 109.9754   65.159444   24.4853002
    
31.              [,7]
    
32. [1,]  -29.029844
    
33. [2,]  259.110190
    
34. [3,]  318.796792
    
35. [4,]   76.908134
    
36. [5,]  318.303697
    
37. [6,] -104.998474
    
38. [7,]  203.161146
    
39. [8,]  377.946436
    
40. [9,]   31.804970
    
41. [10,]   29.706200
    
42. [11,]   54.372495
    
43. [12,]   78.822093
    
44. [13,]  112.294728
    
45. [14,]  325.220528
    
46. [15,]  179.409177
    
47. [16,] -136.491371
    
48. [17,]  150.363192
    
49. [18,]   18.421345
    
50. [19,]    9.968514
    
51. [20,]   60.147081
    
52. [21,]  139.066760
    
53. [22,]  111.739217
    
54. [23,]  -43.041983
    
55. [24,]  730.313581
    
56. >

复制代码

Price=X[X[,4]>100 && X[,4]<200,]