Create and save catalogue.

presentation/ApplicationCategories.R

@@ -35,17 +35,26 @@ head(df_app_categories)
 table(df_app_categories$play_store_genre)
 
 # Correct some mistakes
-df_app_categories %<>% mutate(
-  play_store_genre = {
-    function(x) {
-      case_when(
-        x == "Education,Education" ~ "Education",
-        x == "EducationEducation" ~ "Education",
-        x == "not_found" ~ "System",
-        .default = x
-      )
-    }
-  }(play_store_genre)
+df_app_categories %<>%
+  mutate(
+    play_store_genre = {
+      function(x) {
+        case_when(
+          x == "Education,Education" ~ "Education",
+          x == "EducationEducation" ~ "Education",
+          x == "not_found" ~ "System",
+          .default = x
+        )
+      }
+    }(play_store_genre)
+  ) %>%
+  rename(genre = play_store_genre)
+
+table(df_app_categories$genre)
+
+write_csv(
+  x = select(df_app_categories, c(package_hash, genre)),
+  file = "play_store_application_genre_catalogue.csv"
 )
 
 dbDisconnect(con)