內(nèi)容
Snipaste_2021-05-16_17-01-53.png
1.建立
向量：
x <- c(1,2,3)
x
x <- c(1:10)
x
x <- seq(from=1,to=10,by=0.5)
x
x <- rep(1:3,times=2)
x
x <- rep(c(1,3),each=2)
x
x <- rep(1:3,len=6)
x
數(shù)據(jù)框：
setwd('E:/Rdata-shengxin')
a <- read.table('huahua.txt',sep='\t',header = T)#文件中導(dǎo)入數(shù)據(jù)框
a <-data.frame(case=paste0("S",1:9),values=runif(9))#自創(chuàng)建數(shù)據(jù)框
2.提取子集
向量：
x[4]
x[-4]
x[2:4]
x[-(2:4)]
x[c(1,5)]
#不會(huì)改變?cè)緓砸西，每次都是調(diào)取原來(lái)的x
x[x==10]
x[x==1]
x[x<0]
x[x %in% c(1,2,5)]#判斷x中的元素是否在向量中
數(shù)據(jù)框：
X[x,y]
X[4,1]
X[x,]
X[1,]
X[,y]
X[,1]
X[a:b]#列
x[1:2]
X[c(a,b)]#列
x[c(1,2)]
X$列名
X$X2`
3.數(shù)據(jù)框命名
colnames(x)
rownames(x)
colnames(x)[1] <- 'bioplanet'
x
X <- read.table('E:/Rdata-shengxin/huahua.txt',sep = '\t',header = T,row.names = 1)
names(x) <- 'num'
x
4.導(dǎo)出、保存克伊、重加載
write.table(X,file = 'yu.txt',sep = ',',quote = F)
save.image(file="bioinfoplanet.RData")
save(X,file="test.RData")
load("test.RData")
作業(yè)：save(X,file="test.RData")這句代碼如果報(bào)錯(cuò)object X not found，是為什么，應(yīng)該怎么解決？
說(shuō)明X這個(gè)對(duì)象在R工作環(huán)境中要么不存在要么被刪除，應(yīng)查看X是否存在使用以下代碼的其中之一即可查看
X
View(X)
