Summarise to overviews

01_Master.R

@@ -99,3 +99,48 @@ detach("package:dplyr")
 
 
 vDataMutW1 <- reshape2::dcast(vDataMutAgg, ID ~ CodeCat, value.var = "Hoeveelheid")
+
+# Sumarise dataset with im- and exports
+vOverview <- data.frame()
+for (i in 2:length(vDataMutW1)){
+  vOverviewNew <- data.frame("vCodeCat" = colnames  (vDataMutW1[i]),
+                             "vAantal"  = sum(!is.na(vDataMutW1[i])),
+                             "vTot_Hoev"= sum      (vDataMutW1[i], na.rm = T)
+                             )
+  
+  if (nrow(vOverview)==0){
+    vOverview <- vOverviewNew
+  }
+  else{
+    vOverview <- rbind(vOverview, vOverviewNew)
+  }
+  rm(vOverviewNew)
+}
+rm(i)
+
+vOverview$vGem_Hoev <- vOverview$vTot_Hoev / vOverview$vAantal
+for (i in 1:nrow(vOverview)){
+  vOverview$vCode[i] <- unlist(strsplit(vOverview$vCodeCat[i], "_"))[1]
+  vOverview$vName[i] <- unlist(strsplit(vOverview$vCodeCat[i], "_"))[2]
+  vOverview$vDir[i]  <- unlist(strsplit(vOverview$vCodeCat[i], "_"))[3]
+  vOverview$vVDM[i]  <- unlist(strsplit(vOverview$vCodeCat[i], "_"))[4]
+}
+
+vOverview01 <- reshape2::dcast(vOverview, vName + vCode ~ vDir + vVDM, value.var = "vAantal", fun.aggregate = sum)
+vOverview01$Exp_Sum <- vOverview01$Exp_FALSE + vOverview01$Exp_TRUE
+vOverview01$Imp_Sum <- vOverview01$Imp_FALSE + vOverview01$Imp_TRUE
+
+# Sum amounts per Name
+library("dplyr")
+vOverview02 <-
+  vOverview01 %>% 
+  group_by(vName) %>%
+  summarise (Exp_FALSE = sum(Exp_FALSE),
+             Exp_TRUE  = sum(Exp_TRUE),
+             Imp_FALSE = sum(Imp_FALSE),
+             Imp_TRUE  = sum(Imp_TRUE),
+             Exp_Sum   = sum(Exp_Sum),
+             Imp_Sum   = sum(Imp_Sum)
+  )
+detach("package:dplyr")
+