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)
# 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)

File diff suppressed because it is too large Load Diff