#矩陣
是將R行和列組成的數(shù)組 數(shù)據(jù)元素要求是同一種類型
函數(shù)：
matrix
data 矩陣的元素向量的形式
nrow 行數(shù)
ncol 列數(shù)
byrow 是否按照行排列 默認(rèn)是列排序 true 按行 false 按列
dimnames 可選 對行列進(jìn)行命名
m<-matrix(1:6,nrow=2,ncol=3,byrow =T,dimnames =list(c('r1','r2'),c('c1','c2','c3')))
加入byrow 進(jìn)行排列
m<-matrix(1:6,nrow=2,ncol=3,dimnames =list(c('r1','r2'),c('c1','c2','c3')))
數(shù)值訪問矩陣元素
m[1,1] 1行1列
m[1,] 第一行
m[,1]第一列
邏輯訪問矩陣元素
m[c(T,F),] 第一行
行的名字進(jìn)行訪問
m['r1',] 第一行
#編輯元素
m[1,]<-c(100,99,98)
批量賦值整行
m[1,]<-100 第一行r1的長度為3,100是1個長度，100會被使用三次
矩陣轉(zhuǎn)置
t(m) 列變行 行變列
#數(shù)組 數(shù)據(jù)類型也是統(tǒng)一的
?array
#data 向量
#dim 維度
#dimnames 維度名稱的列表 可選
array(1:10) #一維的數(shù)組就是向量
array(1:10,dim = c(2,5))#矩陣
dim1<-c('A1','A2')
dim2<-c('B1','B2','B3')
dim3<-c('C1','C2')
arry3<-array(1:12,c(2,3,2),dimnames = list(dim1,dim2,dim3))
array(1:12,c(2,3,2))#三維數(shù)組 創(chuàng)建兩個矩形矩陣 每2行3列
arry3[,,'C1']
arry3[,,1]
arry3[,,c(T,F)]
#數(shù)據(jù)框 可以包含各種數(shù)據(jù)類型 每列叫做變量 每行叫做觀測樣本
data.frame()
student<-data.frame(ID=c(1001,1002,1003),
NAME=c('lili','bobo','sam'),
GENDER=c('F','M','M')) #會把類型轉(zhuǎn)換為因子
student<-data.frame(ID=c(1001,1002,1003),
NAME=c('lili','bobo','sam'),
GENDER=c('F','M','M'),stringsAsFactors = F) #加上參數(shù)string關(guān)閉轉(zhuǎn)換
student[1,1]
student[1,]
student[,1]
student['ID']
student[,'ID']
student$ID
student[c('ID','NAME')]
student[1,1]<-1009
student[c('ID','NAME')]
#列表 最復(fù)雜 可以包含各種元素
list()
list1<-list(a=1,b='char',c=m,d=student)
list1[[1]]
list1[['a']]
list1[[4]] #訪問需要加雙重[[]]
list1[4]
class(list1[4])
總結(jié)
1、 操作題：
將 1,2,3，…,12 構(gòu)成兩個 3*4 的矩陣，矩陣 A 是按列輸入，矩陣 B 是按行輸入。
2、 操作題：
將矩陣 B 的第一列的元素都改成 100.
3、 操作題：
ID name weight
1 張三 60
2 李四 70
3 王五 80
創(chuàng)建數(shù)據(jù)框?qū)⑺?wtdata，要求第一、三列的數(shù)據(jù)類型是數(shù)值型的，第二列數(shù)據(jù)類
型是字符型的。
4、 操作題：
返回數(shù)據(jù)框 wtdata 第一、三行的信息
5、 操作題：
創(chuàng)建一個列表，將它命名成 wtlist，列表的長度是 3，列表的第 1 個元素是矩陣 A，列
表的第 2 個元素是矩陣 B，列表的第 3 個元素是 wtdata
6、 操作題：
返回列表 wtlist 第 1 個元素的信息。
1.A<-matrix(1:12,nrow = 3,ncol = 4,)
A
B<-matrix(1:12,nrow = 3,ncol = 4,byrow = T)
B
B[1,]<-c(1,2,3,4)
B
2.B[,1]<-100
B
B[,1]<-1,5,9
3.peson<-data.frame(ID=c(1,2,3),name=c('張三','李四','王五'),weight=c(60,70,80),stringsAsFactors = F)
4.peson[c(1,3)]
peson[c(T,F,T)]
peson[2,3]
5.wtlist<-list(a=A,b=B,c=peson)
6.wtlist[1]
wtlist[[1]]
另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。
重慶分公司
重慶分公司
