向量(引自生信星球)
- 常见的向量赋值
x<-c(1,2,3) #由元素1,2,3组成的向量。
x<-(1:10) #1-10之间所有的整数
x<-seq(1,10,by = 0.5) #1-10之间每隔0.5取一个数
x<-rep(1:3,times=2) #1-3之间的整数,重复2次
练习:
将x赋值为1-100之间每隔0.4取一个数的向量集,代码为x<-seq(1,100,by=0.4)
- 从向量中提取元素,常见的例子如下:
x[4] #x的第4个元素
x[-4]#除了第4个元素之外剩余的元素
x[2:4]#第2到4个元素
x[-(2:4)]#除了2-4之间的元素
x[c(1,5)] #第1个和第5个元素
x[x==10]#等于10的元素
x[x<0]小于0的元素
x[x %in% c(1,2,5)]#存在于向量c(1,2,5)中的元素
练习:提取数据集:x中小于20的元素集中的第2到第8个元素
y<-x[x<20]
y[2:8]
数据框(引自生信星球)
- 新建数据集lianxi.txt,内如如下:
X1,X2
A,1
B,
C,
D,3
E,
获得示例数据框,代码为X<-read.csv('lianxi.txt')
读取本地数据:X<-read.csv('文件名')
- 设置行名和列名
查看行名:rownames(X)
查看列名:colnames(X)
修改列名:colnames(X)[n]<-"修改后的名字"
,n表示第n列
修改行名:rownames(X)[n]<-"修改后的名字"
,n表示第n行
3.导出数据框
write.table(X,file = "导出后的文件名",sep = ",",quote=F)
4.变量的保存和加载
保存所有变量:save.image(file="文件名.RData")
保存某个变量:save(此变量名称,file="文件名.RData")
加载变量:load("文件名.RData")
练习:读取lianxi.txt,修改行名为“1,2,3,4,5”,修改列名为“数值”,保存此变量后加载此变量。代码为:
X<-read.csv('lianxi.txt')
rownames(X)[1]<-"1"
rownames(X)[2]<-"2"
rownames(X)[3]<-"3"
rownames(X)[4]<-"4"
rownames(X)[5]<-"5"
colnames(X)[1]<-"数值"
save(X,file="你好.RData")
load("你好.RData")
5.提取元素
第x行第y列:X[x,y]
第x行:X[x,]
第y列:X[,y]
第a列到第b列:X[a:b]
第a列和第b列:X[c(a,b)]
练习:提取第3行的第8列和第10列
Y<-X[3,]
Y[c(8,10)]