R 결측치, 결측값 NA, NAN 처리 예시 코드

• 결측값(NA, NAN) 처리

  • 예시 Code 1

    for(i in 1:nrow(comb)){
      abs <- set[set$MODEL ==  comb[i, 1] & set$Account == comb[i,2] & set$WH ==comb[i,3], ]
    
      if(length(abs$MAP) < 2){
          k <- rbind(k, comb[i,])
          }else if(is.na(abs$MAP[1]) == T){
              #첫행 na인값 저장
              m<- rbind(m, comb[i,])
    
              }else{
                  for(j in 2:nrow(abs)){
                      if(is.na(abs$MAP[j]) == T){
                          abs$MAP[j] <- abs$MAP[j-1]
                          } } }
                          tot<-rbind(tot,abs)
                          print(paste0(i,"/",nrow(comb))) 
                          }

  • 예시 Code 2

    • 열 기준으로 첫 행 데이터가 결측치 인 경우 제거

    • 열 기준 NA값으로 시작하지 않기

    • 첫수요 발생시점까지 QTY 0 삭제
      item_li<-unique(data$ITEM)
      tot<-data.table()
      
      for(i in 1:length(item_li)){
        tmp<-data[ITEM==item_li[i]]
      
      for(m in 1:nrow(tmp)){
      if(tmp[1,]$QTY==0){
        tmp=tmp[-1,]
        }else{
            break
            }
            }
      tot<-rbind(tot,tmp)
      }

 

 

---