Question

我想重命名环境r中的对象。例如，

y1 <- vector('list', 3)

x1 <- matrix(0, 3, 3)
x2 <- matrix(1, 3, 3)
x3 <- matrix(2, 3, 3)

y1[[1]] <- x1
y1[[2]] <- x2
y1[[3]] <- x3

y2 <- vector('list', 3)

y2[[1]] <- x1
y2[[2]] <- x2
y2[[3]] <- x3

y <- new.env()
y$y1 <- y1
y$y2 <- y2

names(y)

names(y) <- c('a', 'b')

我希望y中的列表名称分别为a和b，即names(y)等于c('a', 'b')，

不好。我无法手动重命名变量y1和y2，我需要在环境中进行更改。

Answer 1

如果您不能直接给它们分配正确的名称，那么最简单的方法就是用一个新的环境替换它。如果您绝对需要保护环境（因为在其他地方已引用），则可以使用相同的技巧替换其内容：

objs = mget(ls(env), env)
rm(list = ls(env), envir = env)
list2env(setNames(objs, new_names), env)

此处的相关部分是list2env的最后一个参数：如果不使用它，只会创建一个新环境。如果指定现有环境，则会将名称添加到该环境中。

此代码将使隐藏名称（即以.开头的名称）保持不变-要更改此名称，请将all.names参数提供给ls，或使用names。 / p>

Answer 2

R在任何环境中都没有真正的内置操作来重命名变量。您可以编写一个简单的辅助函数来实现这一点。

env_rename <- function(e, new_names, old_names = names(e)) {
  stopifnot(length(new_names)==length(old_names)) 
  orig_val <- mget(old_names, envir=e)
  rm(list=old_names, envir=e)
  for(i in seq_along(old_names)) {
    assign(new_names[i], orig_val[[i]], envir=e)
  }
}

并用

调用

env_rename(y, c("a","b"))

Answer 3

您真的需要一个 environment，还是一个 list 可以完成这项工作？如果是这样，您可以轻松地重命名列表项：

...
...
y=list()
y$y1 <- y1
y$y2 <- y2
names(y)=c('a','b')
names(y)
[1] "a" "b"

我有相反的问题：getSymbols 将结果放在 environment 中，我将其更改为 list 以重命名它们：

acao
[1] "PETR4.SA" "VALE3.SA" "ITUB4.SA"
require(quantmod)
e1=new.env()
x=getSymbols(acao,env=e1) 
e1=as.list(e1)
names(e1)
[1] "ITUB4.SA" "VALE3.SA" "PETR4.SA"
names(e1)=sub('.SA$','',names(e1))
names(e1)
[1] "ITUB4" "VALE3" "PETR4"

重命名环境r中的对象

3 个答案: