База географических названий GeoNames

[updates-bot]

Обсуждение статьи "База географических названий GeoNames"

http://gis-lab.info/qa/geonames.html

[Максим Дубинин]

Обновления:
ежедневное автообновление и конвертация GeoNames в shape-файлы в UTF8 и CP1251 также для Беларуси, Украины, Казахстана, Таджикистана, Армении, Грузии, Киргизстана, Туркменистана + логирование количества объектов

[Odd-Bird]

отсутствия возможность отфильтровать альтернативный названия на латинице от кириллических

Ну уж так прям и невозможно... А R на что?

Код: Выделить всё

library(stringi)
library(beepr)

set<-read.table("RU.csv",h=T,sep=";",dec=".",stringsAsFactors=F)

san<-lapply(as.matrix(set[,"alternatenames"]),FUN=strsplit,split=",") # Split lists of alternate names (includig Russian)

can<-NULL # List of cyrillic alternative names (if presented)

for (i in 1:length(san)) {

  sani<-unlist(san[i])
  sani<-sani[!is.na(stri_locate_first_charclass(sani,
                                                pattern="[:script=Cyrillic:]")[,1])]
  
  can<-append(can,sani)
  
}

beep(sound="mario")
  

Как-то так... Базу с населенными пунктами России можно скачать здесь: http://dfiles.ru/files/lzjzbdw7a Колонка rname - кириллическое имя (возможны ошибки транслитерации в случаях, когда альтернативного кириллического названия не предлагалось).