Я довольно новичок в R, но мне удалось сопоставить некоторые данные по штату США. Теперь я хочу довести это до уровня округа, но в настоящее время пытаюсь преобразовать мой код:
output$County_Map <- renderPlotly({
ct_Map_Data <- County_data()
ct_Map_Data <- ct_Map_Data[,c("CODE", "COUNTY", "VALUE", "COUNTY.LIMIT")]
ct_Map_Data$COUNTY.LIMIT <- as.numeric(gsub("," ,"", ct_Map_Data$COUNTY.LIMIT))
ct_Map_Data$VALUE[is.na(ct_Map_Data$VALUE)] <- 0
ct_Map_Data$COUNTY.LIMIT[is.na(ct_Map_Data$COUNTY.LIMIT)] <- 0
# give state boundaries a white border
l <- list(color = toRGB("white"), width = 2)
# specify some map projection/options
g <- list(
scope = 'usa',
projection = list(type = 'albers usa'),
showlakes = TRUE,
lakecolor = toRGB('white')
)
p <- plot_geo(ct_Map_Data, locationmode = 'USA-counties') %>%
add_trace(
z = ~VALUES, text = ~COUNTY, locations = ~CODE,
color = ~VALUES, colors = 'Blues'
) %>%
colorbar(title = "VALUE (USD)")
#%>%
#layout(
# title = paste(input$acc_x, ' - Value by County'),
geo = g
# )
p
})
Код начинается с некоторого форматирования, но затем я пытаюсь построить данные. Единственное, что я изменил с карты кодов штатов, это locationmode = 'USA-states'
на locationmode = 'USA-counties'
Я не уверен, как мне это выяснить, но я полагаю, что мой первый вопрос заключается в том, обрабатывает ли графически карту графствакарта штатов?
Заранее спасибо.