在索引另一个向量时分配向量

Question

这里有一个小代码来说明我的问题：

x <- 1:10
# > x 
#  [1]  1  2  3  4  5  6  7  8  9 10

y <- rep(letters[1:2], 5)
# > y 
#  [1] "a" "b" "a" "b" "a" "b" "a" "b" "a" "b"

z <- rep(c(5,4), 5)
# > z
#  [1] 5 4 5 4 5 4 5 4 5 4

现在，根据我发出接下来两个命令的顺序，我会得到不同的子分配：

• x 第一个，y 第二个：

  x[(x == 2) & (y != "a") & (z == 4)] <- "a"
  # > x
  #  [1] "1"  "a"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"
  
  y[(x == 2) & (y != "a") & (z == 4)] <- "a"
  # > y
  #  [1] "a" "b" "a" "b" "a" "b" "a" "b" "a" "b"
  

• y 第一个，x 第二个：

    y[(x == 2) & (y != "a") & (z == 4)] <- "a" 
    # > y
    #  [1] "a" "a" "a" "b" "a" "b" "a" "b" "a" "b"
  
    x[(x == 2) & (y != "a") & (z == 4)] <- "a"
    # > x
    #  [1] "1"  "2"  "3"  "4"  "5"  "6"  "7"  "8"  "9"  "10"
  

第二个向量的赋值取决于前一个向量中的赋值。因此，在第二个作业中，我需要确保我的相关索引仍然可用于第二个作业。我的第一个想法是：

x[ind <- ((x == 2) & (y != "a") & (z == 4))] <- "a"
y[ind] <- "a"
rm(ind)

我想避免单独调用来分配ind 向量，因为我可能会做很多这样的事情。在R 中这仍然被认为是好的编码还是会导致我没有想到的任何狡猾行为？

Answer 1

您的解决方案似乎很好。但是，我仍然认为您的代码有些不好。考虑你的第一个项目符号：

x[(x == 2) & (y != "a") & (z == 4)] <- "a"
y[(x == 2) & (y != "a") & (z == 4)] <- "a"

在第 1 行，您的 numeric 变量 x 将转换为 character，因为您将 "a" 分配给 TRUE 索引，或者如果没有索引是 TRUE，则可能不会。因此，您的输出类型并不是很清楚。这是一种不好的做法，可能会导致下游的各种问题或问题。你应该保持在类型内。

这也意味着尽管 R 正确解释了比较，但上面第二行中的 x == 2 有点不清楚。然而，再一次，它可能会在更复杂的示例中引起问题。但也许您的应用程序中没有这些类型问题。