# load libraries
library(readr)
library(dplyr)
# load data frame
artists <- read_csv('artists.csv')
# select columns
chosen_cols <- artists %>% 
  select(-country,-year_founded,-albums)
head(chosen_cols)
# filter rows
popular_not_hip_hop <- chosen_cols %>% 
  filter(spotify_monthly_listeners > 20000000, genre != 'Hip Hop') 
head(popular_not_hip_hop)
# arrange rows
youtube_desc <- popular_not_hip_hop %>% 
  arrange(desc(youtube_subscribers))
head(youtube_desc)
# select columns, filter and arrange rows
artists <- artists %>%
  select(-country,- year_founded, -albums) %>%
  filter(spotify_monthly_listeners > 20000000, genre != 'Hip Hop') %>%
  arrange(desc(youtube_subscribers))
head(artists)
NA
NA
NA
NA
NA
LS0tDQp0aXRsZTogIkludHJvZHVjdGlvbiB0byBEYXRhIEZyYW1lcyBpbiBSIg0Kc3VidGl0bGU6ICJhcnRpc3RzLmNzdiINCmF1dGhvcjogIkFubmFiZWwgS3VvIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCiMgbG9hZCBsaWJyYXJpZXMNCmxpYnJhcnkocmVhZHIpDQpsaWJyYXJ5KGRwbHlyKQ0KYGBgDQoNCmBgYHtyIG1lc3NhZ2U9RkFMU0V9DQojIGxvYWQgZGF0YSBmcmFtZQ0KYXJ0aXN0cyA8LSByZWFkX2NzdignYXJ0aXN0cy5jc3YnKQ0KYGBgDQoNCmBgYHtyfQ0KIyBzZWxlY3QgY29sdW1ucw0KY2hvc2VuX2NvbHMgPC0gYXJ0aXN0cyAlPiUgDQogIHNlbGVjdCgtY291bnRyeSwteWVhcl9mb3VuZGVkLC1hbGJ1bXMpDQpoZWFkKGNob3Nlbl9jb2xzKQ0KYGBgDQoNCmBgYHtyfQ0KIyBmaWx0ZXIgcm93cw0KcG9wdWxhcl9ub3RfaGlwX2hvcCA8LSBjaG9zZW5fY29scyAlPiUgDQogIGZpbHRlcihzcG90aWZ5X21vbnRobHlfbGlzdGVuZXJzID4gMjAwMDAwMDAsIGdlbnJlICE9ICdIaXAgSG9wJykgDQpoZWFkKHBvcHVsYXJfbm90X2hpcF9ob3ApDQpgYGANCg0KYGBge3J9DQojIGFycmFuZ2Ugcm93cw0KeW91dHViZV9kZXNjIDwtIHBvcHVsYXJfbm90X2hpcF9ob3AgJT4lIA0KICBhcnJhbmdlKGRlc2MoeW91dHViZV9zdWJzY3JpYmVycykpDQpoZWFkKHlvdXR1YmVfZGVzYykNCmBgYA0KDQpgYGB7cn0NCiMgc2VsZWN0IGNvbHVtbnMsIGZpbHRlciBhbmQgYXJyYW5nZSByb3dzDQphcnRpc3RzIDwtIGFydGlzdHMgJT4lDQogIHNlbGVjdCgtY291bnRyeSwtIHllYXJfZm91bmRlZCwgLWFsYnVtcykgJT4lDQogIGZpbHRlcihzcG90aWZ5X21vbnRobHlfbGlzdGVuZXJzID4gMjAwMDAwMDAsIGdlbnJlICE9ICdIaXAgSG9wJykgJT4lDQogIGFycmFuZ2UoZGVzYyh5b3V0dWJlX3N1YnNjcmliZXJzKSkNCmhlYWQoYXJ0aXN0cykNCg0KDQoNCg0KDQpgYGA=