R语言——高级数据结构

高级数据结构

数据框

创建数据框函数data.frame

> x <- 10:1> y <- -4:5> q <- c("Hockey", "Football", "Baseball", "Curling", "Rugby", "Lacrosse", "Basketball", "Tennis", "Cricket", "Soccer")> theDF <- data.frame(x, y, q)> theDFx y q1 10 -4 Hockey2 9 -3 Football3 8 -2 Baseball4 7 -1 Curling5 6 0 Rugby6 5 1 Lacrosse7 4 2 Basketball8 3 3 Tennis9 2 4 Cricket10 1 5 Soccer

注意theDF中的名称也是变量，可以通过创建数据框中的过程来设定变量名字

> theDF <- data.frame(First=x, Second=y, Sport=q)> theDFFirst Second Sport1 10 -4 Hockey2 9 -3 Football3 8 -2 Baseball4 7 -1 Curling5 6 0 Rugby6 5 1 Lacrosse7 4 2 Basketball8 3 3 Tennis9 2 4 Cricket10 1 5 Soccer

nrow（）得到数据框的行数
ncol（）得到数据框的列数
dim（）同时得到数据框的行数和列数
names（）检查数据框的列名字
rownames（）检查和指定数据框的行名字

> nrow(theDF)[1] 10> ncol(theDF)[1] 3> dim(theDF)[1] 10 3> names(theDF)[1] "First" "Second" "Sport"> names(theDF)[3][1] "Sport"> rownames(theDF)[1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"> rownames(theDF) <- c("one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten")> theDFFirst Second Sportone 10 -4 Hockeytwo 9 -3 Footballthree 8 -2 Baseballfour 7 -1 Curlingfive 6 0 Rugbysix 5 1 Lacrosseseven 4 2 Basketballeight 3 3 Tennisnine 2 4 Cricketten 1 5 Soccer> rownames(theDF)[1] "one" "two" "three" "four" "five" "six" "seven" "eight" "nine" "ten"> rownames(theDF) <- NULL> rownames(theDF)[1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10"

head（）函数显示出前面几行
tail（）函数显示出后面几行

> head(theDF)First Second Sport1 10 -4 Hockey2 9 -3 Football3 8 -2 Baseball4 7 -1 Curling5 6 0 Rugby6 5 1 Lacrosse> head(theDF, n=7)First Second Sport1 10 -4 Hockey2 9 -3 Football3 8 -2 Baseball4 7 -1 Curling5 6 0 Rugby6 5 1 Lacrosse7 4 2 Basketball> tail(theDF)First Second Sport5 6 0 Rugby6 5 1 Lacrosse7 4 2 Basketball8 3 3 Tennis9 2 4 Cricket10 1 5 Soccer

访问单个数据
方法不同，返回的类型也不同，为了确保输出一个单列的数据框，有第三个参数：drop=FALSE

> theDF$Sport[1] Hockey Football Baseball Curling Rugby Lacrosse Basketball Tennis Cricket SoccerLevels: Baseball Basketball Cricket Curling Football Hockey Lacrosse Rugby Soccer Tennis> theDF[3, 2][1] -2> theDF[3, 2:3]Second Sport3 -2 Baseball> theDF[c(3, 5), 2][1] -2 0> theDF[c(3, 5), 2:3]Second Sport3 -2 Baseball5 0 Rugby> theDF[, 3][1] Hockey Football Baseball Curling Rugby Lacrosse Basketball Tennis Cricket SoccerLevels: Baseball Basketball Cricket Curling Football Hockey Lacrosse Rugby Soccer Tennis> theDF[, 2:3]Second Sport1 -4 Hockey2 -3 Football3 -2 Baseball4 -1 Curling5 0 Rugby6 1 Lacrosse7 2 Basketball8 3 Tennis9 4 Cricket10 5 Soccer> theDF[2, ]First Second Sport2 9 -3 Football> theDF[, "Sport", drop=FALSE]Sport1 Hockey2 Football3 Baseball4 Curling5 Rugby6 Lacrosse7 Basketball8 Tennis9 Cricket10 Soccer

列表

通过list（）函数创建

> list(1, 2, 3)[[1]][1] 1[[2]][1] 2[[3]][1] 3> list(c(1, 2, 3))[[1]][1] 1 2 3> list3 <- list(c(1, 2, 3), 3:7)> list3[[1]][1] 1 2 3[[2]][1] 3 4 5 6 7> list(theDF, 1:10)[[1]]First Second Sport1 10 -4 Hockey2 9 -3 Football3 8 -2 Baseball4 7 -1 Curling5 6 0 Rugby6 5 1 Lacrosse7 4 2 Basketball8 3 3 Tennis9 2 4 Cricket10 1 5 Soccer[[2]][1] 1 2 3 4 5 6 7 8 9 10

可以使用names（）函数查看或分配列表元素的名字
利用vector（）创建一个具有一定长度的空列表

> emptyList <- vector(mode = "list", length = 4)> emptyList[[1]]NULL[[2]]NULL[[3]]NULL[[4]]NULL

矩阵

可以进行加减乘除等式运算，
nrow， ncol， dim 也可使用

通过matrix（）函数创建

> A <- matrix(1:10, nrow = 5)> A[,1] [,2][1,] 1 6[2,] 2 7[3,] 3 8[4,] 4 9[5,] 5 10> B <- matrix(21:30, nrow = 5)> B[,1] [,2][1,] 21 26[2,] 22 27[3,] 23 28[4,] 24 29[5,] 25 30> nrow(A)[1] 5> ncol(A)[1] 2> dim(A)[1] 5 2> A+B[,1] [,2][1,] 22 32[2,] 24 34[3,] 26 36[4,] 28 38[5,] 30 40> A==B[,1] [,2][1,] FALSE FALSE[2,] FALSE FALSE[3,] FALSE FALSE[4,] FALSE FALSE[5,] FALSE FALSE

矩阵乘法，要求左边矩阵的列数等于右边矩阵的行数，矩阵A，B都是5*2矩阵，所以为了能让B放在右边进行矩阵乘法运算，需要对矩阵B取转置

> A %*% t(B)[,1] [,2] [,3] [,4] [,5][1,] 177 184 191 198 205[2,] 224 233 242 251 260[3,] 271 282 293 304 315[4,] 318 331 344 357 370[5,] 365 380 395 410 425

矩阵也有行，列名字
colnames（）
rownames（）

> colnames(A)NULL> rownames(A)NULL> colnames(A) <- c("Left", "Right")> rownames(A) <- c("1st", "2st", "3st", "4st", "5st")> colnames(B)NULL> rownames(B)NULL> colnames(B) <- c("First", "Second")> rownames(B) <- c("one", "two", "three", "four", "five")

对矩阵取转置进行矩阵乘法的时候，需要注意乘积结果，转置自然会置换行和列的名字，矩阵乘积的行名字保留左边矩阵的行名字，矩阵乘积的列名字保留右边矩阵的列名字。

> A %*% t(B)one two three four five1st 177 184 191 198 2052st 224 233 242 251 2603st 271 282 293 304 3154st 318 331 344 357 3705st 365 380 395 410 425

数组

一个多维向量

通过array（）函数创建，所有元素必须时相同类型
第一个为行指标，第二个参数是列指标，剩下的参数代表其他维数

> theArray <- array(1:12, dim = c(2, 3, 2))> theArray, , 1[,1] [,2] [,3][1,] 1 3 5[2,] 2 4 6, , 2[,1] [,2] [,3][1,] 7 9 11[2,] 8 10 12> theArray[1,,][,1] [,2][1,] 1 7[2,] 3 9[3,] 5 11> theArray[1,,1][1] 1 3 5> theArray[,,1][,1] [,2] [,3][1,] 1 3 5[2,] 2 4 6

数组和矩阵最主要的不同是，矩阵被限制为两维，二数组可以有任意维数