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(
+df_app_categories %<>%
-  play_store_genre = {
+  mutate(
-    function(x) {
+    play_store_genre = {
-      case_when(
+      function(x) {
-        x == "Education,Education" ~ "Education",
+        case_when(
-        x == "EducationEducation" ~ "Education",
+          x == "Education,Education" ~ "Education",
-        x == "not_found" ~ "System",
+          x == "EducationEducation" ~ "Education",
-        .default = x
+          x == "not_found" ~ "System",
-      )
+          .default = x
-    }
+        )
-  }(play_store_genre)
+      }
+    }(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)