library(readr)
world_bank_data <- read_csv("world_bank_data.csv")
asa <- world_bank_data[world_bank_data$continent=="Asia",]
afr <- world_bank_data[world_bank_data$continent=="Africa",]
amr <- world_bank_data[world_bank_data$continent=="Americas",]
eur <- world_bank_data[world_bank_data$continent=="Europe",]
oce <- world_bank_data[world_bank_data$continent=="Oceania",]