分配矢量另一个向量

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 

现在，这取决于在我发出接下来的两个命令其为了我得到不同的subassignments：

• 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号线，你因为你分配"a"到TRUE指数或许不是，如果没有指数TRUEnumeric变量x转换为character。因此你的输出类型不是很清楚。这是不好的做法，可能会导致下游的各种问题。你应该呆在类型中。

这也意味着上述第二行中的x == 2有些不清楚，尽管R正确地解释了比较。然而，再次，它可能导致一个更复杂的例子中的问题。但是，您的应用程序中可能没有这些类型的问题。