Create and save catalogue.
parent
297eb45933
commit
66754a24aa
|
@ -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
Loading…
Reference in New Issue