向量#

赋值##

x<-c(1,2,3) 
y<-(1:10) 
z<-seq(1,10,by = 0.5)
r<-rep(1:3,times=2) 

提取##

位置###

x[4] 
x[-4]
x[2:4]
x[-(2:4)]
x[c(1,5)]

大小###

x[x==10]
x[x<0]
x[x %in% c(1,2,5)]

数据框#

读取本地数据##

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

行名列名##

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)

导出##

write.table(X,file = "yu.txt",sep = ",",quote=F)

保存与重新加载##

save.image(file="bioinfoplanet.RData")
save(frame1,file="frame1.RData")
load("frame1.RData")

这里frame1最好调整一下，因为之前没有

提取元素##

X[x,y]
X[x,]
X[,y]
X[y] 
X[a:b]
X[c(a,b)]
X$列名

直接使用数据框里变量##

c <-data.frame(case=paste("S",c(1:50)),values=runif(50))
plot(c$case,c$values)

attach###

attach(c)
plot(case,values)

with###

with(c,{
+ plot(case,values)
x<<-summary(values)   
})
x