R语言数据结构
R拥有许多用于存储数据的对象类型,包括标量、向量、矩阵、数组、数据框和列表。它们在存储数据的类型、创建方式、结构复杂度,以及用于定位和访问其中个别元素的标记等方面均有所不同。下图给出了这些数据结构的一个示意图。
一、向量
向量是用于存储数值型、字符型或逻辑型数据的一维数组。执行组合功能的函数c()可用来创建向量。各类向量如下例所示:
a <- c(1,2,5,3,6,-2,4)
b<- c("one","two","three")
C <- C(TRUE,TRUE,TRUE,FALSE,TRUE,FALSE)
这里, a是数值型向量, b是字符型向量,而c是逻辑型向量。注意,单个向量中的数据必须拥有相同的类型或模式(数值型、字符型或逻辑型)。同一向量中无法混杂不同模式的数据。
通过在方括号中给定元素所处位置的数值,我们可以访问向量中的元素。例如, a[c(2,4)] 用于访问向量a中的第二个和第四个元素。更多示例如下:
>a<- c("k", "j","h","a","c","m")
> a[3]
[1]"h"
> a[c(1,3,5)1
[1]"k""h""c"
> a[2:6]
[1] "j""h""a""c""m"
最后一个语句中使用的冒号用于生成一个数值序列。例如, a<-c(2:6)3,4,5,6)。
二、矩阵
矩阵是一个二维数组,只是每个元素都拥有相同的模式(数值型、字符型或逻辑型)。可通过函数matrix() 创建矩阵。 一般使用格式为:
myymatrix <- matrix(vector, nrow=number of rows, ncol=number of columns,
byrow=logical value, dimnames=list(
char vector rownames, char vector colnames))
其中vector包含了矩阵的元素, nrow和ncol用以指定行和列的维数, dimnames包含了可选的、以字符型向量表示的行名和列名。选项byrow则表明矩阵应当按行填充 (byrow=TRUE)
还是按列填充 (byrow=FALSE), 默认情况下按列填充。代码清单中的代码演示了matrix函数的用法。
[1] 79
6
810
7 9
8 10
首先,我们创建了一个内容为数字1到10的2×5矩阵。默认情况下,矩阵按列填充。然后,我们分别选择了第二行和第二列的元素。接着,又选择了第一行第四列的元素。最后选择了位于第 一行第四、第五列的元素。
矩阵都是二维的,和向量类似,矩阵中也仅能包含一种数据类型。
三、数组
数组 (array)与矩阵类似 , 但是维度可以大于2 。 数组可通过array函数创建 , 形式如下 :
myarray <- array(vector, dimensions, dimnames)
其中vector包含了数组中的数据, dimensions是一个数值型向量,给出了各个维度下标的最大值,而dimnames 是可选的、各维度名称标签的列表。代码清单给出了一个创建三维(2×3×4) 数值型数组的示例。
代码清单创建一个数组
> dim1 <- c("Al","A2")
> dim2 <- c("B1","B2","B3")
>dim3 <- c("C1","C2","C3","C4")
>z<- array(1:24,c(2,3,4),dimnames=list(dim1,dim2,dim3))
> Z
,,C1
B1 B2 B3
A1 1 3 5
A2 2 4 6
,,C2
B1 B2 B3
A1 7 911
A2 81012
,,C3
B1 B2 B3
A1131517
A2141618
,C4
B1 B2 B3
A1192123
A2202224
如你所见,数组是矩阵的一个自然推广。它们在编写新的统计方法时可能很有用。像矩阵一样,数组中的数据也只能拥有一种模式。从数组中选取元素的方式与矩阵相同。上例中,元素 z[1,2,3] 为15。
我们首先创建了一个5×4的矩阵①,接着创建了一个2×2的含列名标签的矩阵,并按行进行填 充②,最后创建了一个2×2的矩阵并按列进行了填充③。
我们可以使用下标和方括号来选择矩阵中的行、列或元素。X[i,] 指矩阵x 中的第行, x[,j] 指第j列 ,x[i,j] 指第行第j个元素。选择多行或多列时,下标和/河为数值型向量,如代码清单2-2所示。
代码清单2-2 矩阵下标的使用
>x<- matrix(1:10,nrow=2)
> X
[,1][,2] [,3][,4][,5]
[1,1 1
[2,1 2 4
>x[2,]
[1] 2 4 6
> x[,2]
[>1[14]
[>1]x[ ,c(4,5)]
四、数据框
由于不同的列可以包含不同模式(数值型、字符型等)的数据,数据框的概念较矩阵来说更为一般。它与你通常在SAS、SPSS和Stata中看到的数据集类似。数据框将是你在R中最常处理的数据结构。
表2-1所示的病例数据集包含了数值型和字符型数据。由于数据有多种模式,无法将此数据 集放入一个矩阵。在这种情况下,使用数据框是最佳选择。
数据框可通过函数data.frame() 创建:
mydata <- data.frame(col1, col2,col3....)
其中的列向量col1、col2、col3 等可为任何类型(如字符型、数值型或逻辑型)。每一列的名 称可由函数names 指定。代码清单2-4清晰地展示了相应用法。
代码清单2-4创建一个数据框
> patientID <- c(1,2,3,4)
> age <- c(25,34,28,52)
>diabetes <-c("Type1","Type2","Type1", "Type1")
> status<- c("Poor","Improved","Excellent","Poor")
> patientdata <- data.frame(patientID, age, diabetes, status)
> patientdata
patientID age diabetes status
125 Type1 Poor
2 2 34 ? Type2 Improved
3 328 Type1 Excellent
4 452 Type1 Poor
每一列数据的模式必须唯一,不过你却可以将多个模式的不同列放到一起组成数据框。由于数据框与分析人员通常设想的数据集的形态较为接近,我们在讨论数据框时将交替使用术语列和变量。
选取数据框中元素的方式有若干种。你可以使用前述(如矩阵中的)下标记号,亦可直接指定列名。代码清单2-5使用之前创建的patientdata数据框演示了这些方式。
> patientdataSage
[1] 25342852
第三个例子中的记号§是新出现的①。
它被用来选取一个给定数据框中的某个特定变量。例 如,如果你想生成糖尿病类型变量diabetes 和病情变量status 的列联表,使用以下代码即可:
> table(patientdataSdiabetes, patientdataSstatus)
Type1 Type2
Excellent Improved
1 0. 0 1
Poor
2
0
在每个变量名前都键入一次patientdatas 可能会让人生厌,所以不妨走一些捷径。可以联
合使用函数attach() 和detach() 或单独使用函数with() 来简化代码。
1.attach()、detach()和with()
函数attach() 可将数据框添加到R 的搜索路径中。 R在遇到一个变量名以后,将检查搜索路 径中的数据框。以第1章中的mtcars数据框为例,可以使用以下代码获取每加仑行驶英里数(mpg) 变量的描述性统计量,并分别绘制此变量与发动机排量(disp)和车身重量 (wt)的散点图:
summary(mtcars$mpg) plot(mtcarssmpg,
plot(mtcarssmpg,
以上代码也可写成:
mtcarssdisp)
mtcarsswt)
attach(mtcars)
summary (mpg)
plot(mpg,disp)
plot(mpg, wt)
detach(mtcars)
函数detach() 将数据框从搜索路径中移除。值得注意的是, detach() 并不会对数据框本身 做任何处理。这句是可以省略的,但其实它应当被例行地放入代码中,因为这是一个好的编程习 惯。(接下来的几章中,为了保持代码片段的简约和简短,我可能会不时地忽略这条良训。)
当名称相同的对象不止一个时,这种方法的局限性就很明显了。考虑以下代码:
>mpg>The>Error 'x'
<- c(25,36,47) attach(mtcars)
following object plot(mpg,wt)
in and 'y' lengths
(s) are masked by '.GlobalEnv':
xy.coords(x,y,xlabel,ylabel,log):
differ mpg
> mpg
[1] 253647
这里,在数据框mtcars 被绑定(attach)之前,你们的环境中已经有了一个名为mpg的对象。 在这种情况下,原始对象将取得优先权,这与你们想要的结果有所出入。由于mpg中有3个元素 而disp中有32个元素,故plot语句出错。函数attach()和detach()最好在你分析一个单独的数据框,并且不太可能有多个同名对象时使用。任何情况下,都要当心那些告知某个对象已被屏蔽(masked)的警告。
除此之外,另一种方式是使用函数with()。 可以这样重写上例:
with(mtcars,{
print(summary(mpg))
plot(mpg,disp)
plot(mpg, wt)})
在这种情况下,花括号{}之间的语句都针对数据框mtcars 执行,这样就无需担心名称冲突 了。如果仅有一条语句(例如summary(mpg)), 那么花括号{}可以省略。
函数with() 的局限性在于,赋值仅在此函数的括号内生效。考虑以下代码:
> with(mtcars,{
stats <- summary(mpg)
stats
})
Min. 1st Qu. Median Mean 3rd Qu. Max.
10.40 15.43 19.20 20.09 22.80 33.90
> stats
Error: object 'stats' not found
如果你需要创建在with() 结构以外存在的对象,使用特殊赋值符<<-替代标准赋值符(<-) 即可,它可将对象保存到with()之外的全局环境中。
这一点可通过以下代码阐明:
> with(mtcars, {
nokeepstats <- summary(mpg)
keepstats <<- summary(mpg)
})
> nokeepstats
Error: object 'nokeepstats' not found
> keepstats
Min. 1st Qu. Median Mean 3rd Qu.Max.
10.40 15.43 19.20 20.09 :22.80 33.90
相对于attach(), 多数的R书籍更推荐使用with()。 个人认为从根本上说,选择哪一个是自己的偏好问题,并且应当根据你的目的和对于这两个函数含义的理解而定。
2.实例标识符
在病例数据中,病人编号(patientID)用于区分数据集中不同的个体。在R中,实例标识符(case identifier)可通过数据框操作函数中的rowname选项指定。例如,语句:
五、因子
如你所见,变量可归结为名义型、有序型或连续型变量。名义型变量是没有顺序之分的类别 变量。糖尿病类型Diabetes(Type1、Type2) 是名义型变量的一例。即使在数据中Type1编码 为1而Type2编码为2,这也并不意味着二者是有序的。有序型变量表示一种顺序关系,而非数量 关系。病情Status(poor、improved、excellent) 是顺序型变量的一个上佳示例。我们明 白,病情为poor(较差)病人的状态不如improved (病情好转)的病人,但并不知道相差多少。 连续型变量可以呈现为某个范围内的任意值,并同时表示了顺序和数量。年龄Age就是一个连续 型变量,它能够表示像14.5或22.8这样的值以及其间的其他任意值。很清楚,15岁的人比14岁的 人年长一岁。
类别(名义型)变量和有序类别(有序型)变量在R 中称为因子 (factor)。 因子在R中非 常重要,因为它决定了数据的分析方式以及如何进行视觉呈现。你将在本书中通篇看到这样 的例子。
函数factor()以一个整数向量的形式存储类别值,整数的取值范围是[1..k] (其中k是名义 型变量中唯一值的个数),同时一个由字符串(原始值)组成的内部向量将映射到这些整数上。
举例来说,假设有向量:
diabetes <- c("Typel","Type2","Typel","Typel")
语句diabetes <- factor(diabetes)将此向量存储为(1,2,1,1),并在内部将其关联为 1=Typel和2=Type2(具体赋值根据字母顺序而定)。针对向量diabetes 进行的任何分析都会将其 作为名义型变量对待,并自动选择适合这一测量尺度的统计方法。
要表示有序型变量,需要为函数factor()指定参数ordered=TRUE。 给定向量:
status <- c("Poor","Improved","Excellent","Poor")
语句status <- factor(status, ordered=TRUE)会将向量编码为(3,2,1,3),并在内部 将这些值关联为1=Excellent、2=Improved以及3=Poor。 另外,针对此向量进行的任何分析都会将 其作为有序型变量对待,并自动选择合适的统计方法。
对于字符型向量,因子的水平默认依字母顺序创建。这对于因子status是有意义的,因为 “Excellent”"Improved”“Poor”的排序方式恰好与逻辑顺序相一致。如果 “Poor”被编码为 "Ailing",会有问题,因为顺序将为"Ailing""Excellent""Improved"。如果理想中的顺序是“Poor” "Improved""Excellent",则会出现类似的问题。按默认的字母顺序排序的因子很少能够让人满意。
你可以通过指定levels选项来覆盖默认排序。例如:
status <- factor(status, order=TRUE,
levels=c("Poor","Improved","Excellent"))
各水平的赋值将为1=Poor、2=Improved、3=Excellent。请保证指定的水平与数据中的真实值 相匹配,因为任何在数据中出现而未在参数中列举的数据都将被设为缺失值。
数值型变量可以用levels和labels参数来编码成因子。
如果男性被编码成1,女性被编码 成2,则以下语句:
sex <- factor(sex, levels=c(1,2),labels=c("Male","Female"))
把变量转换成一个无序因子。注意到标签的顺序必须和水平相一致。在这个例子中,性别将被当 成类别型变量,标签“Male”和 "Female" 将替代1和2在结果中输出,而且所有不是1或2的性别 变量将被设为缺失值。
代码清单演示了普通因子和有序因子的不同是如何影响数据分析的
首先,以向量的形式输入数据①。然后,将diabetes和status分别指定为一个普通因子和 一个有序型因子。最后,将数据合并为一个数据框。函数str(object)可提供R中某个对象(本 例中为数据框)的信息②。它清楚地显示diabetes是一个因子,而status是一个有序型因子, 以及此数据框在内部是如何进行编码的。注意,函数summary()会区别对待各个变量③。它显示 了连续型变量age的最小值、最大值、均值和各四分位数,并显示了类别型变量diabetes和 status (各水平)的频数值。
六、列表
列表 (list)是R的数据类型中最为复杂的一种。 一般来说,列表就是一些对象(或成分, component)的有序集合。列表允许你整合若干(可能无关的)对象到单个对象名下。例如
某个列表中可能是若干向量、矩阵、数据框,甚至其他列表的组合。可以使用函数list()创建列表:
mylist <- list(object1, object2, ...)
其中的对象可以是目前为止讲到的任何结构。你还可以为列表中的对象命名:
mylist <- list(namel=object1, name2=object2,..)
代码清单展示了一个例子。
代码清单创建一个列表
>g<-"My First List"
>h<- c(25,26,18,39)
>j<- matrix(1:10,nrow=5)
>k<- c("one","two","three") 创建列表
> mylist <- list(title=g, ages=h,j,k)
>mylist
t1ite "My First List"
Sages
[1] 25261839
[[3]]
[,1][,2]
[1,] 1 6
[2,1 2 7
[3,] 3 8
[4,] 4 9
[5,] 5 10
[[4]]
[1]"one" "two" "three"
> mylist[[2]]
[1] 25261839
> mylist[["ages"]]
[[1] 25261839
输出整个列表
输出第二个成分
本例创建了一个列表,其中有四个成分: 一个字符串、 一个数值型向量、 一个矩阵以及一个字符型向量。可以组合任意多的对象,并将它们保存为一个列表。
你也可以通过在双重方括号中指明代表某个成分的数字或名称来访问列表中的元素。此例中,mylist[[2]] 和mylist[["ages"]]均指那个含有四个元素的向量。对于命名成分, mylist$ages也可以正常运行。由于两个原因,列表成为了R 中的重要数据结构。首先,列表允 许以一种简单的方式组织和重新调用不相干的信息。其次,许多R函数的运行结果都是以列表的 形式返回的。需要取出其中哪些成分由分析人员决定。你将在后续各章发现许多返回列表的函数示例。