如何在R語言中提取列表中每個矩陣的第一行?
為了提取R語言列表中每個矩陣的第一行,我們可以使用lapply函式。例如,如果我們有一個名為LIST的列表包含一些矩陣,那麼我們可以使用以下命令找到每個矩陣的第一行:
lapply(LIST,'[',1,)
檢視下面的示例以瞭解如何操作。
示例
以下程式碼片段建立了一個矩陣列表:
M1<-matrix(rpois(20,5),ncol=2) M2<-matrix(rpois(20,1),ncol=2) M3<-matrix(rpois(20,8),ncol=2) M4<-matrix(rpois(20,10),ncol=2) List<-list(M1,M2,M3,M4) List
建立了以下矩陣列表:
[[1]] [,1][,2] [1,] 2 6 [2,] 6 6 [3,] 10 5 [4,] 3 1 [5,] 6 7 [6,] 7 2 [7,] 6 5 [8,] 4 6 [9,] 9 7 [10,] 7 6 [[2]] [,1][,2] [1,] 1 1 [2,] 1 0 [3,] 1 3 [4,] 2 1 [5,] 1 1 [6,] 5 0 [7,] 2 0 [8,] 0 0 [9,] 2 0 [10,] 1 0 [[3]] [,1] [,2] [1,] 13 7 [2,] 9 11 [3,] 11 12 [4,] 10 3 [5,] 8 10 [6,] 9 4 [7,] 6 8 [8,] 13 8 [9,] 13 8 [10,] 5 6 [[4]] [,1] [,2] [1,] 7 8 [2,] 10 16 [3,] 11 14 [4,] 6 10 [5,] 10 12 [6,] 7 7 [7,] 13 8 [8,] 14 6 [9,] 9 14 [10,] 12 18
現在,為了提取列表中每個矩陣的第一行,請將以下程式碼新增到上面的程式碼片段中:
M1<-matrix(rpois(20,5),ncol=2) M2<-matrix(rpois(20,1),ncol=2) M3<-matrix(rpois(20,8),ncol=2) M4<-matrix(rpois(20,10),ncol=2) List<-list(M1,M2,M3,M4) lapply(List,'[',1,)
輸出
如果將以上所有程式碼片段作為一個程式執行,則會生成以下輸出:
[[1]] [1] 2 6 [[2]] [1] 1 1 [[3]] [1] 13 7 [[4]] [1] 7 8
廣告
資料結構
網路
關係資料庫管理系統 (RDBMS)
作業系統
Java
iOS
HTML
CSS
Android
Python
C語言程式設計
C++
C#
MongoDB
MySQL
Javascript
PHP