数据结构

r语言数据类型

向量

x1 <- c(1,2,3)#向量
x1
x2 <- 1:10#1-10所有整数
x2
x3 <- seq(1,10,by = 0.5)#1-10每隔0.5取一个数
x3
x4 <- rep(1:3,times=2)#1-3重复两次
x4
##从向量中提取元素
#1、根据元素位置
x2[4]
x2[-4]
x2[2:4]
x2[-(2:4)]
x2[1,5]
x2[c(1,5)]#提取某两个要以向量的方式
#2、根据值
x2[x2==10]
x2[x2=10]
x2[x2<0]
x4[x4 %in% c(1,2,5)]
x3[x3 %in% c(1,2,5)]
x2[x2 %in% c(1,2,5)]
x4[x4 %in% c(1,2,3)]
x4[x4 %in% c(1,2,4)]
x2[x2 %in% c(1,2,3)]
x2[x2 %in% c(1,2,6)]
x3[x3 %in% c(1,2,9)]
x3
x[x %in% c(1,2,5)]#之前没有x，报错

注意：x[x %in% c(1,2,5)]有问题，待解决

数据框

#1、读取本地数据
read.table(file='huahua.txt',sep='\t',header = T)
a <- read.table(file='huahua.txt',sep='\t',header = T)
#2、设置行名和列名
X<-read.csv('doudou.txt')
colnames(X)#查看列名
rownames(X)#查看行名，默认值的行名是行号
colnames(X)[1] <- "bioplant"
X<-read.csv(file = "huahua.txt",sep = " ",header =T,row.names=1)
read.table(file='doudou.txt',sep='\t',header = T)
X <- read.table(file='doudou.txt',sep='\t',header = T)
X<-read.csv('doudou.txt')
#3、数据框的导出
write.table(X,file = "yu.txt",sep = ",",quote=F)#分隔符改为逗号，字符串不加双引号，默认格式带双引号

#4、变量的保存与重新加载
save.image(file="bioinfoplanet.RData")#保存当前所有变量
save(X,file="test.RData")#保存其中一个变量
load("test.RData")#再次使用RData时的加载命令
#5、提取元素
a[2,2]#2行2列
a[2,1]#2行1列
a[1,]#第1行
a[,2]#第2列
a[2]#第2列
class(a)
a[1:2]#从第1列到第2列
a[c(1,2)]#第1列和第2列
a$X1#$后加列名
#6、直接使用数据框中的变量
b <-data.frame(case=paste("S",1:50),values=runif(50))
plot(b$case,b$values)
##方法1 attach
attach(b)#将数据框名添加到搜索环境中
plot(case,values)#作图时便只需输入列名
detach(b)#做完后将b删除出搜索环境
##方法2 with
with(b,{
  plot(case,values)
  x<<-summary(values)   #求和并赋值给x,<<的意思是作为全局变量，也就是出了大括号仍有效。
})
x #运行完后打印x

作业

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

代码报错X not found，原因是没有X这个变量或者名字没有写对，解决办法查看环境中的变量名写正确