エラー：予期しない「}」で「}」ループ内のループで（機能中）

Question

これはR上の私のコードであり、それは私がそれを実行しようとすると、私にメッセージ

Error: unexpected '}' in " }"

を取得して保持します。何が問題ですか？私は括弧のバランスをチェックし、それがうまくいくはずのフォーラムに従った。

n = 1 
while(n < 3) { 
    i = 2 
    while (i < 17) { 
     data_freq = data_pourcentage %>% 
      filter(groupe = i & groupe = n) %>% 
      mutate(pourcentage = sum(freq)) %>% 
      mutate(pourcentage = freq/pourcentage) 
     data_pourcentage = left_join(
      data_freq, 
      data_pourcentage, 
      by = c(
       "sujet", "groupe", "identification", 
       "cristallisation", "valence", "freq") 
      ) 
     i = i + 1 
    } 
    n = n + 1 
} 

Answer 1

フィルタコマンドの&が問題です。ただfilter(groupe = i)ですべて正常に動作します。より多くのコンポーネントを組み合わせるには、filter(groupe= c(i,n))を使用します。

n = 1 
while(n < 3) { 
    i = 2 
    while (i < 17) { 
     data_freq = data_pourcentage %>% 
      filter(groupe = c(i,n)) %>% 
      mutate(pourcentage = sum(freq)) %>% 
      mutate(pourcentage = freq/pourcentage) 
     data_pourcentage = left_join(
      data_freq, 
      data_pourcentage, 
      by = c("sujet", "groupe", "identification", 
        "cristallisation", "valence", "freq") 
      ) 
     i = i + 1 
    } 
    n = n + 1 
}