NA'lara abonelikli ödevlerde izin verilmez

Question

Basit bir sorunum var, ancak üstesinden gelmek için mantığı kavrayamadım.

NA'lı sayısal vektörler var ve bunlara koşullu bir işlem uygulamak istiyorum.

x <- c(1,3,5,7,NA,2,4,6) 
x[x>=5] <- c(1:8)[x>=5] 
x[x<5] <- (c(1:8)*10)[x<5] 

It "UA'lar indisli atamaları izin verilmez" hata verir, bu yüzden bunun için mantıklı bir çözüm ne olacağını bilmek istiyorum,:

sorunuma benzer basit bir örnektir Her bir ilişkilendirmeyi çalıştırmanın beklendiği gibi çalıştığı göz önünde bulundurulduğunda.

ben beklenen sonucunu istiyorum: Tercihen

[1] 10 20 3 4 NA 60 70 8 

bu operasyon yaşları alıyor tekrarlamalar dolu boş modelleme için bir fonksiyonu zaten olduğu gibi döngü için yapmak zorunda kalmadan.

Sana atama ve Altsimgeleme intermixing düşünüyorum, önceden Leonardo

Answer 1

Mantığınızın alt kümedeki NA'ları da hariç tutması gerekir. Aşağıdaki örneğe bakın. Alt kümeleri vektörleri, x değiştirilmeden önce saklanır.

x <- c(1,3,5,7,NA,2,4,6) 
subset1 <- x>=5 & !is.na(x) 
subset2 <- x<5 & !is.na(x) 

x[subset1] <- which(subset1) 
x[subset2] <- 10*which(subset2) 

Answer 2

teşekkür ederiz. Neyin peşinde olduğunuza inanıyorum:

x <- c(1,3,5,7,NA,2,4,6) 
x.greater <- c(1:8)[x>=5] 
x.less <- (c(1:8)*10)[x<5] 

x.greater 
# 3 4 NA 8 
x.less 
# 10 20 NA 60 70 

result <- c(x.greater, x.less) 
result 
# 3 4 NA 8 10 20 NA 60 70