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,17 +35,26 @@ 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 %<>%
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) dbDisconnect(con)

File diff suppressed because it is too large Load Diff