《学习小组Day5笔记--大大不留跟》

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

问题：save(x, file = "test.RData")代码报错x not found, 查看x是否赋值成功。

内容来源--微信公众号生信星球