今天主要學習向量和數(shù)據(jù)框
準備
- 每次都要設(shè)置工作路徑
setwd("C:/Rdata")
向量
- 賦值
RStudio右上角可以看到所有變量名稱
x<-c(1,2,3) #將x定義為由元素1褒搔，2喷面，3組成的向量
x<-(1:10) #1-10之間所有的整數(shù)
x<-seq(1,10,by = 0.5) #1-10之間每隔0.5取一個數(shù)
x<-rep(1:3,times=2) #1-3 重復(fù)2次
- 提取元素
x[4] #第4個元素
x[-4]#除了第4個元素之外剩余的元素
x[2:4]#第2到4個元素
x[-(2:4)]#除了第2到4個元素
x[c(1,5)] #第1和第5個元素
數(shù)據(jù)框
讀取的數(shù)據(jù)要方在工作路徑下
- 讀取
read.table(file = "huahua.txt",sep = "\t",header =T) #讀取文件走孽，分隔符為Tab，有表頭
a<-read.table(file = "huahua.txt",sep = "\t",header =T)#把數(shù)據(jù)框賦給變量a
- 行名列名
X<-read.csv('doudou.txt')
colnames(X) #查看列名
rownames(X) #查看行名,默認值的行名就是行號
colnames(X)[1]<-"bioplanet"#修改左上角第一格
X<-read.csv(file = "huahua.txt",sep = "\t",header =T,row.names=1)#最后row.names把第一列當成行名
- 導(dǎo)出
write.table(X,file = "yu.txt",sep = ",",quote=F)
- 變量保存加載
save.image(file="Day5.RData")#保存當前所有變量
save(frame1,file="frame1.RData")#保存變量frame1
load("frame1.RData")
- 元素提取
X[x,y]#第x行第y列
X[x,]#第x行
X[,y]#第y列
X[a:b]#第a列到第b列
X[c(a,b)]#第a列和第b列
X$列名#可用tab
- 選點作圖
c <-data.frame(case=paste("S",c(1:50)),values=runif(50))
attach(c)
plot(case,values)
detach(c)
with(c,{
+plot(case,values)
x<<-summary(values) # with是在c數(shù)據(jù)框范圍內(nèi)操作,<<是作為全局變量求和并賦值給x盒齿，出了c仍有效
})
x
要時刻注意R語言里面每一步前后運行關(guān)系生宛，理清邏輯
總結(jié)
