向量：多个元素组成的变量
赋值
- x<-c(1,2,3) x赋值为1,2,3组成的变量
- x=1:10 x赋值成1-10之间的整数
- x<- seq(1,10,by = 0.5) 范围1:10，每隔0.5取一个数
- x<- rep(1:3,times=2) 数字1-3重复2次
从向量中提取元素
- x[2] 取向量中的第二个元素
- x[-2] 取除了第二个元素之外的元素
- x[1:3] 取第1-3个元素
- x[c(1,5)] 取第1和第五个元素
- x[x==10]#等于10的元素
- x[x<0]
-
x[x %in% c(1,2,5)]#存在于向量c（1，2，5）中的元素
于.png
数据框
读取数据
x=read.csv("文件名.csv/txt")
x=read.table(file="文件名.txt",sep="\t",header=T)以tab（制表符）为分隔符
设置行名列名
colnames(X) #查看列名
rownames(X) #查看行名
colnames(X)[1]<-"bioplanet"#有的公司返回数据，左上角第一格为空，R会自动补为x,用这个命令来修改
X<-read.csv(file = "文件名.txt",sep = " ",header =T,row.names=1)定义第一列为行名
导出数据框
write.csv(文件，“新文件名.csv",sep = ",",quote=F)分隔符改为逗号，字符串不加双引号
保存变量和重新加载
save.image(file="bioinfoplanet.RData")#保存当前所有变量
save(X,file="test.RData")#保存其中一个变量
load("test.RData")#再次使用RData时的加载命令
提取元素
- 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$列名#也可以提取列（优秀写法，而且这个命令还优秀到不用写括号的地步，并且支持Tab自动补全哦，不过只能提取一列）
任意提取两列作图
- a <-data.frame(case=paste("S",1:50)),values=runif(50))
plot(avalues) 提取某两列作散点图
- a <-data.frame(case=paste("S",1:50)),values=runif(50))
attach(a)
plot(case,values) -
a <-data.frame(case=paste("S",1:50)),values=runif(50))
with(a,{
plot(case,values)
x<<-summary(values) #求和并赋值给x,<<的意思是作为全局变量，也就是出了大括号仍有效。
})
微信截图_20200228203930.png
思考题
可能未定义x
