两个for循环的问题

sgm

d<-c(4:8)
a<-c(1:6)
for(i in 1:6)
{
  a[i]
  for(b in 1:4)
  {
    if(a[i]==d[b])
    {
      a[i]<-NA
    }
  }
}
a

我想把a这组数据和b这组数据中的相同的值变成NA输出。用两个for循环进行。
但是结果是：

错误于if (a[i] == d[b]) { : 需要TRUE/FALSE值的地方不可以用缺少值
> a
[1]  1  2  3 NA  5  6
>

求指教 :plain:

sgm

中间那点复制有点错误，更正一下：
是a这组数据和d这组数据中相同的值变成NA，然后输入给a这组数据

然后是

d<-c(4:8)
a<-c(1:6)
for(i in 1:6)
{
  
  for(b in 1:4)
  {
    if(a [ i ]==d [ b ])
    {
      a[ i ] < - NA
    }
  }
}
a

sgm

[未知用户]

错误于if (a [ i ] == d [ b ]) { : 需要TRUE/FALSE值的地方不可以用缺少值
> a
[1]  1  2  3 NA  5  6

Dearc

d<-c(4:8)
a<-c(1:6)
test <- as.list()
for(m in 1:6)
{
 test[[m]] <- a[m]==d 
 for(n in 1:5)
   {
   if (test[[m]][n] == TRUE)
     a[m] <- NA
 }
}
print(a)

forstat

是这样，首先，LZ的赋值那里有点问题，“<”和“-”距离有点远，我这里运行时除了一点问题。
其次，类型不对，a是数据类型，赋值 NA 的时候不是数据类型，所以报错了。
如果LZ把“NA”用“0”代替，就没问题。
最后，如果想赋值“NA”，那就添加一个引号（“NA”这个样子），数字类型123也变成字符类型“1”“2”“3”了。

adpose

我认为你这个for的顺序写错了才导致这个错误的

当第一个 a==d 时你把 a <- NA

循环继续下去的时候 a这个值会继续用来做 if判断.所以才会有那个提示

sgm

[未知用户]
我用你的CODE试了试结果如下：

> d<-c(4:8)
> a<-c(1:6)
> test <- as.list()
错误于as.list.default() : 缺少参数"x",也没有缺省值
> for(m in 1:6)
+ {
+  test[[m]] <- a[m]==d 
+  for(n in 1:5)
+    {
+    if (test[[m]][n] == TRUE)
+      a[m] <- NA
+  }
+ }
错误于test[[m]] <- a[m] == d : 找不到对象'test'
> print(a)
[1] 1 2 3 4 5 6

不过还是感谢 :cool:

sgm

[未知用户]
言之有理，我再去试试。

sgm

找到答案了求指教想把下面的CODE写得更专业一点：

d<-c(4:8)
a<-c(1:6)
e<-a
for(i in 1:6)
{
  for(b in 1:4)
  {
    if(a[i]==d[b])
    {
     
      e[i]<-NA   
    }
  }
}
e


> d<-c(4:8)
> a<-c(1:6)
> e<-a
> for(i in 1:6)
+ {
+   for(b in 1:4)
+   {
+     if(a[i]==d[b])
+     {
+      
+       e[i]<-NA 
+     }
+   }
+ }
> 
> e
[1]  1  2  3 NA NA NA

Dearc

[未知用户]

test <- NULL
就好了

Dearc

[未知用户]

受你启发，规避比较产生T/F以外的值（这里是NA）就不会出错了。

d<-c(4:8)
a<-c(1:6)
for(m in 1:6)
{
  for(n in 1:5)
  {
    ifelse(a[m] == d[n],a[m] <- NA,a[m] <- a[m])
  }
}
print(a)
[1]  1  2  3 NA NA NA

这个也不会出错了