R Notebook

Lets just load the data first

InputDt <- read.csv("file:///D:/MR_Marata/data_notification_Q4.csv")

For clarity lets just look at the easy case first: Adding district name using the “district code”. The ideas presented can easily be generized for the case when there is need to use the “organization unit name”.

# make an ordered list of district code from the data
DistrictCodes <- sort(unique(substr(InputDt$organisationunitcode,0, 1)),decreasing = FALSE)

# simpler case: 

# with missing values "" and "T" and "P" are left for this example
DistrictCodesA<- DistrictCodes[c(-1,-length(DistrictCodes),-(length(DistrictCodes)-1))]

# Here we keep the same order as in "DistrictCodes"
DistrictNameA<-c("Maseru","Botha-Bothe","Leribe","Berea","Mafeteng","Mohale's Hoek","Quthing","Qacha's Nek","Mokhotlong","Thaba-Tseka")

# much demanding case:
# easily solved  through filtering with "organization unit name".
#DistrictCodesB<- DistrictCodes[c(1,length(DistrictCodes),(length(DistrictCodes)-1))]

CODE CHUNK

Here we just domonstrate how you can avoid the repeated aspects of your code with a single for loop.

getDistNameFromDistCode<-function(DistrictCodesA,DistrictNameA){
  
  #*****************************************************************************************
  # This function uses the distric code from an input dataframe to filter data chunks whose distric name can be added by simply reading the district code.
  # The data chunks with district name column added are binded and returned as an ouput
  #***************************************************************************************** 
  library("hash")
  #dictionary with (CODE : DISTNAME) pair
  h<-hash(DistrictCodesA,DistrictNameA)
  
  #template dataframe for output
  OutDt<-InputDt[1,]
  OutDt$District<-""
  OutDt<-OutDt[-1,]
  
  for(i in DistrictCodesA){
   
    #subset the input data by DISTR. CODE
    tempDtf <-InputDt[substr(InputDt$organisationunitcode,0,1)==i,]
    #add a DISTR name on a new column "District" 
    tempDtf$District<-h[[i]]
    
    OutDt<-rbind(OutDt,tempDtf)
    
  }
  
  return(OutDt)
  
}


OutDTF<- getDistNameFromDistCode(DistrictCodesA,DistrictNameA)