Изменить кодировку названий на карте

[VistaSV30]

Добрый день!

Названия на карте выводятся в неизвестной кодировке (кажется CP1251). Подскажите, как их вывести в нормальном виде?

Названия выводятся функцией:

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

text(pts[,1], pts[,2], labels = cities$name_2, cex = 0.5, pos = 3)

Пробовал конвертировать cities$name_2

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

iconv(cities$name_2, "CP1251", "UTF-8")

Ничего не получилось
Исходники можно скачать по ссылке
https://yadi.sk/d/1J4j-WAPTkLyrA

Спасибо!

[nplatonov]

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

Sys.setlocale("LC_CTYPE","Russian") ## для ОС Windows
library(rgdal)
cities <- readOGR("Geo/VectorImages","Cities",encoding="UTF-8",use_iconv=TRUE)
cities@data$name_2