Построение данных для каждого графства с использованием графика в R без использования геокода
У меня есть некоторые данные, которые я хочу визуализировать с помощью plotly, Информация о местоположении в моем наборе данных ограничена информацией о штате и округе, т.е. без координат. Я пытался получить координаты от ggplot2::map_data('county') для каждого местоположения, которое у меня есть, но оно не работает:
ДАННЫЕ:
> dput(rd2[1:10])
structure(list(utility_name = c("Arizona Public Service Co",
"Arizona Public Service Co", "AES Alamitos LLC", "AES Huntington Beach LLC",
"Los Angeles Department of Water & Power", "PSEG Power Connecticut LLC",
"Tampa Electric Co", "Indianapolis Power & Light Co", "NRG Canal LLC",
"Nantucket Electric Co"), plant_name = c("Ocotillo", "Ocotillo",
"AES Alamitos LLC", "AES Huntington Beach LLC", "Scattergood",
"Bridgeport Station", "Big Bend", "Eagle Valley (IN)", "Canal",
"Nantucket"), state = c("AZ", "AZ", "CA", "CA", "CA", "CT", "FL",
"IN", "MA", "MA"), county = c("Maricopa", "Maricopa", "Los Angeles",
"Orange", "Los Angeles", "Fairfield", "Hillsborough", "Morgan",
"Barnstable", "Nantucket"), current_year = c(2019, 2018, 2020,
2020, 2020, 2019, 2021, 2018, 2019, 2019), prime_mover = c("GT",
"GT", "CT", "CT", "CT", "CT", "GT", "CT", "GT", "GT"), mw = c(485.7,
323.8, 462, 462, 230, 375.7, 784, 414, 330, 15.4)), .Names = c("utility_name",
"plant_name", "state", "county", "current_year", "prime_mover",
"mw"), class = c("data.table", "data.frame"), row.names = c(NA,
-10L), .internal.selfref = <pointer: 0x0000000000120788>)
КОД:
library(data.table)
coord_data <- as.data.table(map_data('county'))
coord_data[subregion %in% unique(rd2$county)]
ВЫХОД:
> coord_data[subregion %in% unique(rd2$county)]
Empty data.table (0 rows) of 6 cols: long,lat,group,order,region,subregion
возможно subregion в map_data это не название округа. Любые предложения о том, как построить это? Все примеры на сайте сюжета ( county, scatter, bubble) имеют точные географические координаты. Я не хочу использовать ggmap:geocode потому что, исходя из моего прошлого опыта, он часто дает сбой, даже когда я нахожусь под лимитом запросов, а время между вызовами превышает указанное пороговое значение