Post #100

Страны: коды, валюты, координаты Сборка через код в R library("rvest") library("countrycode") library("data.table") library("ggplot2") yr="2023" mon="October" url_cntrs <- paste0("https://www.imf.org/en/Publications/WEO/weo-database/",yr,"/",mon,"/select-countries?grp=2001&sg=All%20countries") site_cntr <- read_html(url_cntrs) Name_IMF <- site_cntr %>% html_nodes("[class='p-icon p-toggle p-plain']") %>% html_element("label") %>% html_text() Code_IMF <- site_cntr %>% html_nodes("[class='weo-check']") %>% html_attr("value") Curr_IMF <- site_cntr %>% html_nodes("[class='tooltip fade']") %>% html_attr("data-title") Curr_IMF <- do.call(rbind,strsplit(Curr_IMF,"\n")) Curr_IMF <- gsub("Primary domestic currency: ","",Curr_IMF[,1]) DATA <- as.data.frame(cbind(Name_IMF,Code_IMF,Curr_IMF)) DATA$Vers_WEO <- paste(yr, mon, sep="_") DATA$Code_ISO3 <- countrycode(as.numeric(DATA$Code_IMF),'imf','iso3c') DATA$Code_ISO2 <- countrycode(as.numeric(DATA$Code_IMF),'imf','iso2c') DATA <- subset(DATA, is.na(DATA$Code_ISO3)==F & is.na(DATA$Code_ISO3)==F) url_un <- "https://comtradeapi.un.org/files/v1/app/reference/Reporters.json" y <- rjson::fromJSON(file=url_un) rr <- lapply(y[1]$results, function(x) do.call("cbind",x)) ll <- lapply(y[1]$results, function(x) length(x)) un_cntrs_8 <- as.data.frame(do.call("rbind",rr[ll==8])) un_cntrs_8[un_cntrs_8$reporterCode=="490",5] <- "TW" un_cntrs_8[un_cntrs_8$reporterCode=="490",6] <- "TWN" un_cntrs_actual <- as.data.frame(do.call("rbind",rr[ll==9])) un_cntrs_retro1 <- as.data.frame(do.call("rbind",rr[ll==10])) un_cntrs_retro2 <- subset(un_cntrs_actual, nchar(un_cntrs_actual$reporterCodeIsoAlpha2)>2) un_cntrs_actual <- subset(un_cntrs_actual, nchar(un_cntrs_actual$reporterCodeIsoAlpha2)==2) names(un_cntrs_retro2)[7:8] <- names(un_cntrs_retro1)[8:9] full <- dplyr::bind_rows(un_cntrs_actual, un_cntrs_8, un_cntrs_retro1, un_cntrs_retro2) DATA$Code_UN <- full$reporterCode[match(DATA$Code_ISO3, full$reporterCodeIsoAlpha3)] url_cap <- "https://raw.githubusercontent.com/reganjohn/BHI/master/topology/country-capitals.csv" cap <- fread(url_cap, na.strings="NULL") cap <- subset(cap, is.na(cap$countryCode)==F) DATA$continent <- cap$continent[match(DATA$Code_ISO2, cap$countryCode)] DATA$capital <- cap$capital[match(DATA$Code_ISO2, cap$countryCode)] DATA$lat_capital <- cap$latitude[match(DATA$Code_ISO2, cap$countryCode)] DATA$lon_capital <- cap$longitude[match(DATA$Code_ISO2, cap$countryCode)] url_coord <- "https://developers.google.com/public-data/docs/canonical/countries_csv" site_coord <- read_html(url_coord) crds <- site_coord %>% html_nodes("[class='devsite-article-body clearfix ']") %>% html_table() crds <- crds[[1]]; crds$country[crds$name=="Namibia"] <- "NA" DATA$lat_center <- crds$latitude[match(DATA$Code_ISO2, crds$country)] DATA$lon_center <- crds$longitude[match(DATA$Code_ISO2, crds$country)] DATA$lat_center[is.na(DATA$lat_center)==T] <- DATA$lat_capital[is.na(DATA$lat_center)==T] DATA$lon_center[is.na(DATA$lon_center)==T] <- DATA$lon_capital[is.na(DATA$lon_center)==T] world <- ggplot2::map_data("world") mp <- ggplot(DATA) + geom_map(data = world, map = world, aes(map_id = region), fill=alpha("palegreen1",0.33), col="grey") + geom_point(aes(lon_capital, lat_capital), col="sienna", size=0.7) + geom_point(aes(lon_center, lat_center), col="palegreen4", size=0.5) + theme_void() + scale_y_continuous(limits=c(-50,80)) png(paste0(getwd(), '/mp_coord',substr(Sys.Date(),3,10),'.png'), width = 8, height = 6, units = 'in', res = 700) mp dev.off() Файл — в первом комментарии