1.向量
> rm(list = ls())
> x<-c(1,2,3)
> x
[1] 1 2 3
> x<-1:10
> x
[1] 1 2 3 4 5 6 7 8 9 10
> x<-seq(1,10,by=0.5)
> x
[1] 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0 5.5
[11] 6.0 6.5 7.0 7.5 8.0 8.5 9.0 9.5 10.0
> x<-rep(1:3,2)
> x
[1] 1 2 3 1 2 3
2.從向量中提取元素
根據(jù)元素位置
> x
[1] 1 2 3 1 2 3
> x[4]
[1] 1
> x[-4]
[1] 1 2 3 2 3
> x[2:4]
[1] 2 3 1
> x[-(2:4)]
[1] 1 2 3
> x[c(1,5)]
[1] 1 2
根據(jù)元素的值
> x
[1] 1 2 3 1 2 3
> x[x==10]
integer(0)
> x[x<0]
integer(0)
> x[x %in% c(1,2,5)]
[1] 1 2 1 2
3.讀取文本
> #讀取本地?cái)?shù)據(jù)
> read.table(file = "doudou.txt",sep = "\t",header = T)
X1.X2
1 A,1
2 B,
3 C,
4 D,3
5 E,
> read.table(file = "huahua.txt",sep = "\t",header = T)
X1 X2
1 A 1
2 B NA
3 C NA
4 D 3
5 E NA
4.設(shè)置行名和列名
> X<-read.csv("doudou.txt")
> colnames(X)
[1] "X1" "X2"
> rownames(X)
[1] "1" "2" "3" "4" "5"
> colnames(X)[1]
[1] "X1"
> View(X)
> colnames(X)[1]<-"bioplanet"
> View(X)
> X
bioplanet X2
1 A 1
2 B NA
3 C NA
4 D 3
5 E NA
#4.設(shè)置行名和列名
5.數(shù)據(jù)框的導(dǎo)出
write.table(X,file = "yu.txt",sep = ",",quote = F)
6. #變量的保存與重新加載
> save.image(file = "bioinfoplanet.RData")
> save(X,file = "test.RData")
> load("test.RData")
7.提取元素
- 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$列名#也可以提取列
Tips
將數(shù)據(jù)框名添加到搜索環(huán)境中：
attach（a）,作圖時(shí)就只需輸入列名(連$都不用了)
> a <-data.frame(case=paste("S",1:50),values=runif(50))
> plot(a$case,a$values)
plot
> attach(a)
> plot(case,values)
plot
總結(jié)
學(xué)習(xí)小組-Day5-Mingwei Guo R基礎(chǔ).png
題目：
save(X,file="test.RData")這句代碼如果報(bào)錯(cuò)X not found，是為什么，應(yīng)該怎么解決？
答案：
報(bào)錯(cuò)X not found可能性：
- 不存在X這個(gè)向量
- 向量x和X大小寫(xiě)寫(xiě)錯(cuò)（R中區(qū)分大小寫(xiě)）等
解決方法：
檢查大小寫(xiě)，重新運(yùn)行。必要時(shí)搜索網(wǎng)絡(luò)經(jīng)驗(yàn)。
