Question

分配的R帮助说：“assign不分派赋值方法，因此它不能用于设置向量，名称，属性等元素。”在示例中，我们将向下显示：

a <- 1:4
assign("a[1]", 2)
a[1] == 2          # FALSE
get("a[1]") == 2   # TRUE

我想知道如何解决这个例子指出的问题 - 给定一个代表矢量或数据帧一部分的字符串，我该如何分配到该位置？我可以获取值：

x <- "a[1]"
eval(parse(text=x))  # 1

当然我可以分配到矢量的一部分

a[1:2] <- c(0,0)

所以如果我开始使用字符串，我怎么把它们放在一起？

谢谢LauriK，但我的困难在于字符串是“a [1：2]”，所以即使get也会失败。我会解释让我提出这个问题的原因。

我有两个数据框，一个是这样的：

> df
  Fiscal Year  Num Deferrals  1 Yr Prob
1        2015             0        100%
2        2016             0        100%
3        2017            65         98%
2 Year Total             65         n/a
2 Year Average           32         n/a

和另一个像这样：

> sv
nDeferrals   nSmallDeferrals   oneYrProb
          0                 0      1.0000
          0                 0      1.0000
         65                63       .9797

我想保存这两件事的部分描述，并且在将来的运行中，只要第一部分没有改变，我将用第二部分的值替换它。所以我有两个字符串：

"df$'1 Yr Prob'[1:3]"
"sv$oneYrProb"

只要“df $'1 Yr Prob [1：3]”没有改变，我将用“sv $ oneYrProb”的值在未来的运行时覆盖它。我正在保存这两个变量的名称，以及它被冻结时第一个变量的值：

freeze <- function(R_name, saved_name) {
    frozen <- new.env()
    R_value <- eval(parse(text=R_name))
    with(frozen, assign(R_name, list(R_name, R_value, saved_name)))
    save(frozen, file="frozen.RData")
}

结果是“冻结”环境包含如下所示的变量：

> frozen$"df$'1 Yr Prob'[1:3]"
[[1]]
[1] "df$\"1 Yr Prob\"[1:3]"

[[2]]
[1] "100% "100%" "98%"

[[3]]
[1] "sv$oneYrProb"

所以我有代表测试中两个对象的字符串，以及冻结时第一个对象的值。
我可以获取对象的值 - 使用“eval（parse” - ，但我不知道如何存储回第一个。我有：

processFreezeList <- function() {
    load("frozen.RData", envir=.GlobalEnv)
    variables <- ls(frozen)
    for (v in variables) {
        temp <- get(v, frozen)
        R_name <- temp[[1]]
        R_value <- temp[[2]]
        saved_name <- temp[[3]]
        if (all(eval(parse(text=R_name)) == R_value))
            assign(R_name, eval(parse(text=saved_name)), envir=.GlobalEnv)
    }
}

assign不是写第一个对象，而是创建一个新变量：

"df$/"1 Yr Prob/"[1:3]"

使用该字符串，我可以获取它所代表的值，但我不知道如何回写它们。为了解决原来的问题，我转向替代，但看起来它应该是可以用字符串做的。

Answer 1

如果我理解正确，那么你想要改变向量的一部分，同时只知道向量名称作为字符串变量。尝试这样的事情：

> (a <- letters[1:5])
[1] "a" "b" "c" "d" "e"
> x <- "a"
> var.x <- get(x)
> var.x[1:2] <- c(0,0)
> assign(x, var.x)
> a
[1] "0" "0" "c" "d" "e"

Answer 2

我找到了解决问题的答案，并且我认为它可以推广。它看起来像这样：

a <- c(1,1,1)
b <- c(2,2,2)
x <- "a[1]"
y <- "b[1]"
eval(parse(text=paste(x,"<-",y)
a
[1] 2 1 1

换句话说，将赋值本身带入字符串和eval中。

如何使用assign来修改R中矢量的一部分？

2 个答案: