分配矢量另一個向量

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正確地解釋了比較。然而，再次，它可能導致一個更復雜的例子中的問題。但是，您的應用程序中可能沒有這些類型的問題。