R的环境系统（汇总）

调用环境： emptyenv()###空环境（没有父环境） baseenv()###基环境 globalenv()###全局环境（打开R后，创建的所有对象都存储在全局环境中）

用parent.env(globalenv())###查看一个环境的父环境

用ls或者ls.str查看存储在环境中的对象。（ls命令只返回对象名称；ls.str命令则会大致展示每个对象的结构） eg: ls(globalenv()) ls.str(globalenv())

用$来提取某一个对象 eg:

head(globalenv()$deck,3)###head函数是提取一组数据的前6行，当然也可以单独指定

assign函数：（将对象存储到特定环境中） eg:

assign(“new”,”hello global”,envir=globalenv())###assign（“对象名”，”对象值”，想要存储的环境名称） globalenv()$new

一个循环函数的编写（类似于发牌）

deal<-function(){ card<-deck[1,] assign(“deck”,deck[-1,],envir=globalenv()) card }###随着一次次的输出，都发下一张牌

将新建立的函数存储在一个子环境中

setup<-function(deck){ DECK<-deck DEAL<-function(){ card<-deck[1,] assign(“deck”,deck[-1,],envir=parent.env(environment())) card } SHUFFLE<-function(){ random<-sample(1:52,size=52) assign(“deck”,DECK[random,],envir=parent.env(environment())) } list(deal=DEAL,shuffle=SHUFFLE) } cards<-setup(deck) deal<-cards dealshuffle<−cards shuffle######这样就可以随意删除或修改全局环境中的deck副本，而这套系统仍然可以运行。deal、shuffle函数使用的是原始的，被保护的deck版本。