今天主要學(xué)習(xí)R語(yǔ)言的數(shù)據(jù)結(jié)構(gòu)间聊，理解向量族购、數(shù)據(jù)框壳贪，并學(xué)會(huì)使用他們
Stay hungry. Stay foolish

思維導(dǎo)圖

學(xué)習(xí)小組Day5-R數(shù)據(jù)結(jié)構(gòu)-劉沛東.png

x<- c(1,2,3) #常用的向量寫(xiě)法，意為將x定義為由元素1寝杖，2违施，3組成的向量。
x
x<- 1:10 #從1-10之間所有的整數(shù)
x
x<- seq(1,10,by = 0.5) #1-10之間每隔0.5取一個(gè)數(shù)（注意是逗號(hào)不是分號(hào)）
x
x<- rep(1:3,times=2) #1-3 重復(fù)2次
x
#這里的x是你剛才賦值的變量名瑟幕，根據(jù)自己的情況來(lái)修改
x[4] #x第4個(gè)元素
x[-4]#排除法磕蒲，除了第4個(gè)元素之外剩余的元素
x[2:4]#第2到4個(gè)元素
x[-(2:4)]#除了第2-4個(gè)元素
x[c(1,5)] #第1個(gè)和第5個(gè)元素
x[x==10]#等于10的元素
x[x<0]
x[x %in% c(1,2,5)]#存在于向量c（1，2只盹，5）中的元素
x[c(1,2,5)]
X<-read.csv('doudou.txt')

read.table(file ="huahua.txt",sep="\t",header =T)
a<-read.table(file ="huahua.txt", sep ="\t", header =T)
testa<-read.csv('huahua.txt')

X<-read.csv('doudou.txt') #在示例數(shù)據(jù)里有doudou.txt 注意這里的變量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è)命令來(lái)修改
X<-read.csv(file = "huahua.txt",sep = " ",header =T,row.names=1)#最后row.names的意思是修改第一列為行名

write.table(X,file = "yu.txt",sep = ",",quote=F)#分隔符改為逗號(hào)排吴，字符串不加雙引號(hào)（默認(rèn)格式帶由雙引號(hào)） 

#這次沒(méi)有處理完的數(shù)據(jù)下次想接著用怎么辦?--學(xué)會(huì)保存和重新加載。保存的格式是RData懦鼠。
save.image(file="bioinfoplanet.RData")#保存當(dāng)前所有變量
save(X,file="test.RData")#保存其中一個(gè)變量
load("bioinfoplanet.RData")#再次使用RData時(shí)的加載命令
rm(list=ls())
- 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$列名#也可以提取列（優(yōu)秀寫(xiě)法，而且這個(gè)命令還優(yōu)秀到不用寫(xiě)括號(hào)的地步屹堰，并且支持Tab自動(dòng)補(bǔ)全哦肛冶，不過(guò)只能提取一列）
a$X1
a$X2

options(stringsAsFactors = T)
a <-data.frame(case=paste0("S",1:9),values=runif(9))
b<-data.frame(lpdmed=paste0("lpd",1:9),values=runif(9))
plot(b$lpdmed,b$values)

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

save(X,file="testx.RData")

written by lpdmed
 Stay hungry. Stay foolish
2020-07-21