0

データ フレームの 1 つの属性が連続データ型 (aggregatedInocme) で、(aggregatedInocme) 属性の値に基づいて (低、中、高) カテゴリを持つ新しい属性を作成したいと考えています。以下のコードに示すように、分類を 3 つの範囲に分割しました。

for ループを使用して簡単なコードを作成し、属性内の各セルの値が特定の範囲に属しているかどうかを確認する if ステートメントを使用して、対応する文字列をそれに割り当てます。

y<-min(data_loanapp$aggregatedInocme)-0
x<-max(data_loanapp$aggregatedInocme)-min(data_loanapp$aggregatedInocme)
c1<-(y+(x/3))
c2<- (y+((2*x)/3))
rr <- c()
 for (val in data_loanapp$aggregatedInocme){
   if(val<= c1) {
      rr[val]<- append(rr[val], 'Low')
     }else if (c1< val<= c2){
      rr[val]<-append(rr[val], "mid")
     }else
      rr[val]<-append(rr[val], "high")
}

rr

(Low、High、Mid) のいずれかの値を持つ属性を持つことを期待しています。しかし、私はすべての NA とエラー警告メッセージで属性を取得し続けます: In rr[val] <- append(rr[val], "high") : number of items to replace is not a multiple of replacement length

エラー: "}" に予期しない '}' があります

4

1 に答える 1