DAY5

數(shù)據(jù)結(jié)構(gòu)

一、向量（vector）

1.標(biāo)量和向量的區(qū)分

標(biāo)量：一個(gè)元素組成的變量
矢量：多個(gè)元素組成的變量
（元素：數(shù)字或者字符用chr表示。）

例：
標(biāo)量：1,"chaichai"標(biāo)量可以是一個(gè)數(shù)字，或者一個(gè)字符串，字符串在使用時(shí)必須加引號(hào)。
矢量：c(1,2,3),c("chaichai","longlong","fengfeng")依次排列的多個(gè)數(shù)字或字符串，中間用逗號(hào)分隔。
使用時(shí)，變量一般都會(huì)被賦值，賦值符號(hào)是<-

a<- c(2,3,4,5)  #將a定義為由元素2、3、4、5組成的向量
a
b<- 1:10  #從1-10之間所有的整數(shù)
b
c<- seq(1,10,by = 0.5)  #1-10之間每隔0.5取一個(gè)數(shù)（注意符號(hào)是逗號(hào)）
c
d<- rep(1:3.times = 3)  #1-3重復(fù)3次
d

運(yùn)行實(shí)例如圖

在哪怎么看變量

2.從向量中提取元素

（1）根據(jù)元素位置提取

a[4]  #第四個(gè)元素
b[-4]  #排除法，除了第四個(gè)元素之外剩余的元素
c[2:4]  #第2到第4個(gè)元素
d[-(2:4)]  #除了第2-4個(gè)元素
e[c(1,5)]  #第1個(gè)和第5個(gè)元素

運(yùn)行實(shí)例如圖

元素提取

a[a == 10]  #等于10的元素
b[b<7]  #小于7的元素
d[d %in% c(1,2,5)]  #存在于向量c(1,2,5)中的元素

運(yùn)行實(shí)例如圖

元素提取

二、數(shù)據(jù)框（Data frame）

1.讀取本地?cái)?shù)據(jù)

將數(shù)據(jù)放在工作目錄中

read.table(file = "文件名",sep = "\t",header = T)  #讀取文件，分隔符為Tab，有表頭。
a<-read.table(file = "文件名",sep = "\t",header = T)  #把這個(gè)數(shù)據(jù)框賦給一個(gè)變量
X<-read.csv('文件名')  

運(yùn)行實(shí)例如圖

讀取本地?cái)?shù)據(jù)

2.設(shè)置行名和列名

X<-read.csv('文件名')  #這里的變量X是一個(gè)數(shù)據(jù)框
colnames(X)  #查看列名
rownames(X)  #查看列名，默認(rèn)值的行名就是行號(hào)，1.2.3.4...
colnames(X) [1]<-"bioplanet"  #有的公司返回?cái)?shù)據(jù)，左上角第一格為空，R會(huì)自動(dòng)補(bǔ)位x，用這個(gè)命令來修改
X<-read.csv(file = "文件名",sep = "\t",header = T,row.names=1)  #最后這個(gè)row.names的意思是修改第一行為列名

運(yùn)行實(shí)例如圖

運(yùn)行實(shí)例

3.數(shù)據(jù)框的導(dǎo)出

write.table(X,file = "文件名",seq = ",",quote=F  #分隔符改為逗號(hào)，字符串不加雙引號(hào)（默認(rèn)格式帶有雙引號(hào)）

4.變量的保存與重新加載

save.image(file = "文件名.RData")  #保存當(dāng)前所有變量
ssave(frame1,file = "frame1.RData")  #保存其中一個(gè)變量
load("frame1.RData")  #再次使用RData時(shí)的加載命令

5.提取元素

- X[x,y]  #第x行y列
- X[x,]  #第x行
- X[,y]  #第y列
- X[y]  #也是第y列
- X[a:b] #第a列到第b列
- X[c(a,b)]  #第a列和第b列
- X$列名  #也可以提取列（支持Tab自動(dòng)補(bǔ)全，只能提取一列）

6.直接使用數(shù)據(jù)框中的變量

方法1：attach
將數(shù)據(jù)框名添加到搜索環(huán)境中：attach(a),作圖時(shí)就只需輸入列名（連$都不用了）。

attach(a)
plot(case,values)

做完后將a刪除出搜索環(huán)境。

detach(a)

局限性：兩個(gè)以上數(shù)據(jù)框的列名有沖突時(shí)，同時(shí)attach會(huì)報(bào)錯(cuò)。
運(yùn)行實(shí)例如圖

運(yùn)行實(shí)例

方法2：with

with(a,{
  plot(case,values)
x<<-summary(values)  ##求和并賦值給x，<<的意思是作為全局變量，y也就是出了大括號(hào)仍有效。
})
x  #運(yùn)行完后打印x

運(yùn)行實(shí)例如圖

運(yùn)行實(shí)例