R语言数据结构练习
##2020.03.11
x <- c(1,2,3)
x
x <- 1:10
x
x <- seq(1,10, by = 0.5) #此处的是逗号而不是分号
x
x <- rep(1:3, times = 2)
x
#------从向量中提取元素-------#
x[4]
x[-4] #去除第4个元素
x[2:4]
x[-(2:4)] #去除第2-4个元素
x[c(1,5)] #提取第1个和第5个元素
x[x==10] #等于10的元素
x[x<0]
x[x %in% c(1,2,5)] #存在于向量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 = "", header = T, row.names = 1)
##row.names的意思是修改第一列为行名
write.table(x, file = "sheng.txt", 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$X2 #提取特定的某一列，只能提取一列
#----------直接使用数据框中的变量----------#
a <- data.frame(case = paste("S",1:50), values = runif(50))
plot(a$case,a$values)
#-----------方法1------------#
attach(a) #attach后作图不需要输入列名
plot(case,values)
detach(a) #删除a
#-----------方法2------------#
with(a,{
plot(case,values)
x<<-summary(values) #求和并赋值给x,<<的意思是作为全局变量，出了大括号仍然有效
})
x
![]()
plot
plot
问题：save(x, file = "test.RData")代码报错x not found, 查看x是否赋值成功。
内容来源--微信公众号生信星球
