Create and save catalogue.

master
junos 2023-04-18 16:10:11 +02:00
parent 297eb45933
commit 66754a24aa
2 changed files with 1040 additions and 11 deletions

View File

@ -35,7 +35,8 @@ head(df_app_categories)
table(df_app_categories$play_store_genre) table(df_app_categories$play_store_genre)
# Correct some mistakes # Correct some mistakes
df_app_categories %<>% mutate( df_app_categories %<>%
mutate(
play_store_genre = { play_store_genre = {
function(x) { function(x) {
case_when( case_when(
@ -46,6 +47,14 @@ df_app_categories %<>% mutate(
) )
} }
}(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) dbDisconnect(con)

File diff suppressed because it is too large Load Diff