谁能告诉我这是怎么回事？我正在尝试提取所有元素都相同的列，但是它不起作用

Question

我的数据集称为“火车”。它具有705列和50006行。我试图提取每个元素都相同的列。但是R会引发一些错误。

代码

silly_var<-list()
for (i in 1:705) {
  for (j in 1:50006){
    if train[1,i]==train[j,i] {
      if j == 50006 {
        list.append(silly_var,colnames(train)[i])
      }
    }else break
  }
}

错误消息

> silly_var<-list()
> for (i in 1:705) {
+   for (j in 1:50006){
+     if train[1,i]==train[j,i] {
Error: unexpected symbol in:
"  for (j in 1:50006){
    if train"
>       if j == 50006 {
Error: unexpected symbol in "      if j"
>         list.append(silly_var,colnames(train)[i])
[[1]]
[1] "support_search_events"

>       }
Error: unexpected '}' in "      }"
>     }else break
Error: unexpected '}' in "    }"
>   }
Error: unexpected '}' in "  }"
> }
Error: unexpected '}' in "}"

Answer 1

就像for循环一样，您需要在if语句条件周围加上括号。

if (train[1,i]==train[j,i]) {
  if (j == 50006) {
    list.append(silly_var,colnames(train)[i])
  }
}else break